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VOORWOORD 


Voor u ligt een verzameling programma's die direct toepasbaar zijn op de MSX computer. 
Onder de vele boeken die reeds over deze computer gepubliceerd zijn, zal dit bo « waar: 
schijnlijk een bijzondere plaats innemen en wel door de veelheid van programma < op zo- 
veel verschillende gebieden. Dit boek toont dan ook duidelijk aan dat de MSX een zeer 
veelzijdige computer is en zich uitstekend leent voor allerlei technische en zakelijke toepas- 
singen. 

Behalve algemene wiskundige en statistische toepassingen zijn onder andere simulatie- 
programma's, een grafisch-programma, een tekstverwerkingsprogramma en een data- 
bestandenprogramma opgenomen. Bij alle programma's is een voorbeeld geplaatst, zodat 
u eenvoudig kunt controleren of alles goed is ingetoetst. 

Bij de grote programma's is bovendien gebruik gemaakt van checksums, zodat de controle 
zeer nauwkeurig is uit te voeren. 

Tot slot nog een speciaal woord van dank aan Harm-Jan Boonstra voor de realieste van 
vele van deze programma's waaronder de schaakklok en het muziekprogramma „songge- 
nerator” 
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1 WISKUNDIGE PROGRAMMA'S 


In dit hoofdstuk zullen we ons bezighouden met allerlei wiskundige toepassingen. Tenslotte 
Is onze MSX een computer. dat wil zeggen een machine waarmee gerekend kan worden. 
Het aantal wiskundige toepassingen is in feite ongekend groot en daarom hebben we 
slechts een keuze kunnen maken. Bij die keuze hebben we ons laten leiden door de gebrui- 
kelijke verzamelingen BASIC-subroutines die voor wiskundige toepassingen gegeven 
worden. 

We starten met enkele bekende onderwerpen uit de getallentheorie, hierna staan we stil bij 
het onderwerp „het omzetten van getallen”. Dit gedeelte zal vooral voor programmeurs die 
in assembler willen werken van belang zijn; assembler-programmeren houdt immers het 
werken met binaire en hexadecimale getallen in. 

Vervolgens komen de complexe getallen en enkele belangrijke functies aan de orde. Uiter- 
aard verschaffen we programma's voor differentiaal- en integraalberekeningen, program- 
ma's voor het werken met matrices, het bepalen van de error-functie en het bepalen van 
de Fouriertransformatie. Eveneens zijn een tweetal vektorprogramma's opgenomen en een 
programma dat het nulpunt van een functie berekent. 


1.1.1 PRIEMGETALLEN 


Priemgetallen zijn gehele getallen die bij deling alleen een geheel getal opleveren als we 
door het getal zelf of door 1 delen. Zo is 5 bijvoorbeeld een priemgetal, dit getal is immers 
alleen deelbaar door 1 en 5. Priemgetallen zijn voor wiskundigen van formaat steeds een 
geweldige uitdaging geweest. Met name de vraag of men een zeker verband tussen de 
opeenvolgende getallen zou kunnen ontdekken heeft steeds velen geïntrigeerd. In het ge- 
zaghebbende blad Scientific American treft men hierover met de regelmaat van de klok (of 
met de regelmaat van „priemgetallen’……) artikelen aan. 

Het volgende programma berekent alle pnemgetallen tussen twee opgegeven grenzen, Het 
aantal waarden dat men kan verkrijgen zal uiteindelijk door de beschikbare geheugenruim- 
te worden bepaald. 


Voorbeeld: 


xt priemgetallen 44 


beginwaarde? 102 
eindwaarde? 200 


tussenliggende priemgetallen 


181 193 197 199 113 127 131 137 
138 149 151 157 163 167 173 
179 181 191 193 197 199 


Programma: 


19 REM *** priemgetallen *** 

2D REM * input ** 

39 CLS:LOCATE 6,3 

43 PRINT" **** priemgetallen ****” 

52 PRINT: INPUT"beginwaarde";X 

69 INPUT" eindwaarde";Y 

7@ DIM PR(Y-X) 

8% PRINT:PRINT"tussenliggende priemgetallen”: PRIN 
ii 

95 GOSUB 150 

189 FOR A=D TO Y-X 

119 IF PR(A)=@ THEN PRINT (A+X); 

129 NEXT A 

139 PRINT:PRINT 

149 END 

159 REM ** berekening ** 

169 X1=X 

179 P=P+1-(NOT(P=2)) 

189 IF P>SQR(Y) THEN RETURN 

199 IF X1/P-INT(X1/P)=@ THEN GOSUB 229:GOTO 169 
207 X1=X1+1:GOTO 190 

210 REM * wegstrepen niet-priemgetallen * 
229 IF X1>Y THEN RETURN 

230 IF X1<>P THEN PR(X1-X)=1 

245 X1=X1+P 

255 GOTO 220 


1.1.2 ONTBINDEN IN FACTOREN 


Het onderwerp „ontbinden in factoren” is uiteraard nauw verwant aan het onderwerp 
priemgetallen”. Het gaat er hierbij immers om een getal als een vermenigvuldiging van 
priemgetallen voor te stellen. bijvoorbeeld: 16 = 2 * 2» 2 «2. 

Als een getal in het geheel niet in factoren te ontbinden is … jawel, omdat het een priemgetal 
Is, dan zal dit programma dat ook melden. 


Voorbeeld 1: 


“KK ontbinden in factoren **** 
idd en bad 
kk bepalen van priemgetallen **+** 


te ontbinden getal ? 519510 


519510 = 2 *3 %5 «7 11 « 13 « 17 


Voorbeeld 2: 


“Kk ontbinden in factoren xx 
bid en idd 
xk bepalen van priemgetallen %*** 


te ontbinden getal ? 109 


199 is een priemgetal 


Programma: 

15 REM ** ontbinden in factoren *** 
23 REM *** of het bepalen van dta 
39 REM *** priemgetallen halal 
49 REM ** invoer van getal ** 

55 CLS 

67 GOSUB 199 

7D REM ** berekeningen en uitvoer ** 


89 GOSUB 199 

95 END 

199 REM ** invoer van het getal ** 

119 LOCATE 1,2 

125 PRINT" ***x ontbinden in factoren vk” 
133 PRINT" X%xx en vk” 
149 PRINT" XxxX bepalen van priemgetallen ***x" 
159 LOCATE 9,8 

169 INPUT" te ontbinden getal “;B 

179 PRINT 

185 RETURN 

195 REM Xx berekeningen en uitvoer ** 

295 PRINT:PRINT STR$(B); 

219 A=B:P=2 

229 MX=INT(SQR(A) ) 

230 IF P>MX THEN 349 

249 IF A=1 THEN 379 

250 F=A/P 

260 IF F<>INT(F) THEN 310 

270 IF A=B THEN PRINT" =";STR$(P);:GOTO 290 
280 PRINT" X";STR$(P); 

299 A=F 

305 GOTO 240 

319 IF P=2 THEN P=1 

329 P=P+2 

339 GOTO 239 

349 IF A=B THEN PRINT" is een priemgetal":GOTO 37 
[7] 

350 IF A=1 THEN 370 

369 PRINT” *";STR$(A); 

370 PRINT:PRINT 

389 RETURN 


1.2 HET OMZETTEN VAN GETALLEN 


Dit programma heeft betrekking op het omzetten van getallen in een ander talstelsel 
Het zal vooral van belang zijn voor programmeurs die in assembler willen werken. Bij as- 
sembler spelen de zogenaamde binaire en hexadecimale getallen een grote rol. 
Alvorens we hier dieper op ingaan bespreken we eerst de opbouw van de ons zo vertrouw: 
de (decimale) getallen. 

Bij onze decimale getallen gebruiken we 10 symbolen (0 - 9). De plaats van zo'n symbool 
in een getal correspondeert dan met een macht van 10, 

We illustreren dit aan de hand van een voorbeeld. 

Het getal 478 is opgebouwd uit 8 eenheden (10 tot de macht 0), 7 tientallen (10 tot de macht 
1) en 4 honderdtallen (10 tot de macht 2) 


478 


EEEN i= 8 
x 10! =7x 10 = 70 
4x 10? = 4 x 100 = 400 
— + 
478 


Deze geweldige „notatie-truc” die de Arabieren ons hebben geschonken is zeer algemeen 
uitbreidbaar. leder getal kan als volgt worden voorgesteld: 


Aog” + A‚g?=! + A2g?r? + …. + Ang + An 
met Ao A„ gehele getallen OsA <q 
en g = grondtal 


Bij hexadecimale getallen is het grondtal 16, bij binaire getallen is het grondtal 2, 

Het volgende programma stelt ons in staat een getal in een willekeurig grondtal in te voeren 
(g < 37). Hierbij worden de ons zo vertrouwde (decimale) getallen 10, 11, 12, 13, etc. door 
middel van de letters A, B, C‚ D, etc. voorgesteld. Zo vindt men dat de symbolen die voor 
hexadecimale getallen gebruikt worden overeenkomen met: 0 - 9. A, B, C‚ D, E en F. 


Voorbeeld 1: 
xk conversie Mk 


te converteren getal? 317 
grondtal hiervan? 10 
grondtal v/h nieuwe stelsel? 16 


in het 16 tallig stelsel is het 
bovenstaande getal gelijk aan: 
13D 


Voorbeeld 2: 


“kk conversie kk 


te converteren getal? 13D 
grondtal hiervan? 16 


grondtal v/h nieuwe stelsel? 19 


in het 19 taellig stelsel is het 
bovenstaande getal gelijk aan: 


317 


Programma: 


15 
25 
35 
40 
50 
65 
70 
85 
9 
199 
119 
129 
135 
140 
159 
169 
179 
189 
199 
200 
218 
220 
230 
245 
259 
269 


REM **& conversie %*%* 

CLS:LOCATE 7,2 

PRINT" **%* conversie Xxx” 

REM *x invoer van gegevens Xx 

GOSUB 149 

REM ** converteer opgegeven getal ** 
REM XX naar dec. representatie *% 


GOSUB 209 
REM ** conversie XX 

GOSUB 390 

REM ** uitvoer van gegevens * 
GOSUB 409 

END 

REM ** invoer van gegevens ** 
LOCATE 9,5 

INPUT"te converteren getal";GT$ 
PRINT: INPUT" grondtal hiervan";G1 


PRINT: INPUT"grondtal v/h nieuwe stelsel";G2 
RETURN 

REM ** bepalen van dec. repr. van gt1$ ** 
GT=G 

L=LEN(GT$) 

FOR I=1 TO L 

CF$=MID$(GT$, I, 1) 

IF CF$<="9" THEN CF=VAL(CF$) 

IF CF$>="A" AND CF$<="Z" THEN CF=ASC(CF$)-55 


265 IF CF$>="a" AND CF$<="2" THEN CF=ASC(CF$)-87 
267 IF CF>=G1 THEN PRINT:PRINT" Invoer past niet 
bij grondtal !!":END 

275 GT=GTXGI1+CF 

289 NEXT I 

299 RETURN 

30D REM XX conversie ** 

319 RT$="" 

329 IF GT=@ THEN RETURN 

339 HULP=GT/G2 

340 GT=INT(HULP) 

353 HULP=(HULP-GT)xG2 

36% HULP=INT(HULP+. 1)’ X afronden * 

370 IF HULP<=9 THEN RT$=RT$+CHR$(HULP+48 ) 

389 IF HULP>9 THEN RT$=RT$+CHR$(HULP+55) 

395 GOTO 320 

400 REM * uitvoer van resultaat * 

419 L=LEN(RT$) 

420 CF$ 
430 FOR I=9 TO L-1 

440 CF$=CF$+MIDS(RT$,L-I, 1) 

450 NEXT I 

469 LOCATE O, 12 

470 PRINT"in het";G2;"tallig "; 

489 PRINT"stelsel is het" 

495 PRINT:PRINT"bovenstaande getal gelijk aan: 
507 PRINT:PRINT CF$:PRINT: PRINT 

519 RETURN 


1.3 REEKSEN 


Een reeks is een serie getallen waarbij een gegeven verband tussen de opeenvolgende 
waarden aanwezig is. Van de schoolbanken kennen we nog de rekenkundige reeks (ledere 
volgende term toont een constant verschil met de vorige term) en de meetkundige reeks 
(iedere volgende term volgt uit vermenigvuldiging met een constante). De nu volgende pro- 
gramma's geven de reeks van Fibonacci en de Bernoulli getallen 


1.3.1 REEKS VAN FIBONACCI 


Fibonacci, bijgenaamd Leonardo van Pisa, reisde als koopman van ltalië naar verschillende 
Arabische landen. In 1202 schreef hij een groot handboek over het rekenen met het 
Hindoe-Arabische getallensysteem. In 1220 beschrijft hij de aanwezige kennis op het ge- 
bied van meetkunde en trigonometrie. 
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We geven deze informatie om duidelijk te maken dat Fibonacci meer is dan een Italiaanse 
wiskundige die een „aardige naar hem genoemde reeks bedacht. De lezer die meer infor- 
matie wenst verwijzen we naar het klassieke werk van onze landgenoot D.J. Struik, „Ge- 
schiedenis van de wiskunde” (Aula, 195) 

Nu dan de reeks van Fibonacci. Aan deze reeks ligt het vraagstuk ten grondslag hoeveel 
konijnen uit één paar kunnen voortkomen, bijvoorbeeld in één jaar, als er elke maand een 
nieuwe generatie ontstaat die zich vanaf de tweede maand begint voort te planten en als 
geen enkel konijn in deze periode sterft 

De beoogde reeks heeft de volgende gedaante. 


112358 


met andere woorden: elke term is de som van de twee voorgaande termen. Deze reeks 
heeft, behalve dat ze geent is op een aan de natuur ontleend vraagstuk, enkele markante 
eigenschappen. Een van die eigenschappen is dat het quotiënt van twee opeenvolgende 
termen steeds meer naar een constante waarde tendeert, deze waarde komt dan precies 
overeen met de bekende „gulden snede” 


Voorbeeld: 


sk Fibonacci % 


eerste getal? 1 
tweede getal? 1 


te berekenen term? 13 


de 13 de term 
de 14 de term 
de 15 de term 610 
de 16 de term is: 987 
ar wende term? (j/n) 


233 
377 


Programma: 


19 REM *%* Fibonacci *** 

29 KEY OFF:CLS:LOCATE 7,2 

35 PRINT" *%* Fibonacci %x” 
4D REM XX invoer gegevens *Xx 
57 GOSUB 149 

69 REM *x berekening ** 

77 GOSUB 220 

89 REM ** uitvoer resultaat ** 
9@ GOSUB 307 


109 REM ** volgende term *%* 

119 GOSUB 339 

129 GOTO 69 

133 END 

145 REM XX invoer gegevens Xx 
159 LOCATE 9,4 

16 INPUT" eerste getal";F1 

179 INPUT" tweede getal";F2 

18% PRINT: INPUT"te berekenen term”;N 
199 PRINT 

200 B=3 

215 RETURN 

220 REM ** berekening * 

230 IF N<3 THEN 290 

240 FOR I=B TO N 

259 F3=F1+F2 

269 F1=F2 

279 F2=F3 

289 NEXT I 

299 RETURN 

30D REM Xx uitvoer resultaat * 
319 PRINT:PRINT"de";N;"de term is: ";CSNG(F2) 
325 RETURN 

335 REM ** volgende term ** 

349 PRINT” volgende term? (j/n) 
357 A$-INKEY$:IF A$ THEN 350 
369 IF A$="N" OR A$="n" THEN END 
379 N=N+1 

389 B=N 

399 LOCATE @,CSRLIN-2 

423 RETURN 


1.3.2 BERNOUILLI GETALLEN 


Bernoulli is de familienaam van een geslacht waarvan we vele telgen in de wis- en natuur- 
kundeboeken van vandaag tegenkomen. Het is daarom redelijk om bij het onderwerp 
„Bernouilli-getallen” allereerst te vragen „welke Bernoulli?” Welnu de Bernouilll waarop 
we doelen was Jacob Bernoulli die leefde van 1654 tot 1705. 

Wederom is onze bron het werk van Struik, we citeren: Jacob begon zijn briefwisseling met 
Leibniz in 1687. Door een constante uitwisseling van ideeën tussen Leibniz en de twee 
broeders, de broeders soms in heftige nvaliteit, ontdekten deze drie wiskundigen talloze 
schatten die door het pionierswerk van Leibniz aan het licht waren gebracht. Het aantal hun- 
ner ontdekkingen is groot en bevat vele onderzoekingen over integralen en gewone diffe- 
rentiaalvergelijkingen 
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We kunnen hier enige voorbeelden geven. Bij Jacob vinden we het gebruik van poolcoördi- 
naten, de studie van de kettingljn (reeds door Huygens en anderen besproken), de lemnis- 
caat (1694) en de logaritmische spiraal… Jacob Bernouilli was ook onderzoeker van de nog 
nieuwe waarschijnlijkheidsleer. 

Op zijn grafsteen liet hij de logaritmische spiraal graveren met de spreuk: „eadem mutata 
resurgo'’, oftewel: „ofschoon veranderd. ik blijf dezelfde 


De getallen van Bernoulli hebben de volgende gedaante, 


2(2n)! 1 


4 
-gel mtgt 


B, = 1/6, B, = 1/30, B; = 1/42, 


Deze getallen komen met name in een aantal reeksontwikkelingen voor en ook bij bepaalde 
numerieke benaderingen van integralen treft men ze aan. Vooral door dit laatste zijn ze van 
belang bij het werken met computers. 

Een uitgebreide verhandeling over deze toepassingen treft men aan in „complements de 
mathematiques” van Angot (uitgave: Collection technique et scientifique du C.N.E.T.) 


Voorbeeld; 


“kkk Bernouilli sx 
te berekenen Bernouilli getal? 4 
Bernouilli getal 4 : .0333332 
Bernouilli getal 5 : „0757576 
Bernouillí getal 6 : „253114 
Bernouilli getal 7 : 1.16667 
volgende term? (j/n) 


Programma: 


19 REM **x Bernouilli %** 

29 CLS:LOCATE 7,2 

39 PRINT"***« Bernouilli %*” 
4D REM ** invoer gegevens ** 
57 GOSUB 149 

69 REM ** berekening ** 

79 GOSUB 290 
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BĲ REM * uitvoer v/h resultaat ** 
95 GOSUB 349 


199 
119 
129 
139 
140 
159 
169 
179 
189 
199 
200 
219 
229 
230 


249 
250 
269 
279 
289 
290 
300 
319 
320 
339 
340 
359 
360 
370 
380 
390 
400 
410 
420 
430 
440 


REM *x volgende term? ** 
GOSUB 379 

GOTO 69 

END 

REM XX invoer gegevens ** 
PI=3. 14159265# 

LOCATE @, 4 

INPUT"te berekenen Bernouilli getal";N 
X=2N 

RETURN 

REM ** berekening ** 

REM * faculteitberekening * 
X2=X"2 


F=1l+1/(12%X)+1/(288*X2)-139/( 51840! *X4X2) -571 
/{2488320 !KX2XX2) 


R=SQR( 24PIKX) KX" XKEXP(-X) XF 

REM * berekening factor * 
F=2*R/((2°X-1)*PI°X) 

REM X* bepaling Bernouilligetal *° 
B1=F:A=1 

A=zA+2 

B2=B1 

B1=B2+F/A"X 

IF (ABS(B2-B1)>(1E-53)) THEN 299 
RETURN 

REM ** uitvoer van resultaat *%* 
PRINT:PRINT"Bernouilli getal"N":"CSNG(B1) 
RETURN 

REM ** volgende term? ** 
PRINT:PRINT" volgende term? (j/n)” 
A$=INKEY$:IF A$="" THEN 390 

IF A$="N" OR A$="n" THEN END 
LOCATE 9, CSRLIN-2 

NaN+1 

X=N*2 

RETURN 


1.4 COMPLEXE GETALLEN 
Naast de reële getallen kennen we de complexe getallen. Een complex getal (z) wordt in 
het algemeen geschreven als: 
a+jb 
Hierin stelt a het reêle en b het imaginaire gedeelte voor. Verder geldt dat het kwadraat van 


j met -1 overeenkomt. 
Een complex getal kunnen we steeds als volgt afbeelden: 


imaginair 


reëel 


De lengte van de pijl z komt overeen met de modulus van z, deze lengte kan men via de 
stelling van Pythagoras eenvoudig berekenen. Uit bovengenoemde voorstelling kan men 
direct afleiden dat complexe getallen ook door middel van poolcoördinaten gegeven kun- 
nen worden. De straal komt dan met de modulus van z overeen en het argument met 
arctan(b/a). 

In het nu volgende treft men twee programma's aan waarmee de meest voorkomende be- 
werkingen op complexe getallen kunnen worden uitgevoerd. 


1.4.1 COMPLEXE GETALLEN 1 


Met behulp van dit programma kunnen we van een gegeven complex getal bepalen: 


poolcoördinaten 
-__e-macht 
-_natuurlijke logantme 
wortel 


Deze bewerkingen worden op het beeldscherm aangegeven met een letter. Door het inty- 
pen van een letter kiest men een bewerking. 


Voorbeeld: 


%kK complexe getallen 1 **** 


mogelijke bewerkingen: 
omzetten naar poolcoördinaten (P) 


bepalen van E-macht (E) 
bepalen van LN (L) 
bepalen van wortel (W) 
bewerking?p 


was is het complexe getal (re, im) 


De poolcoördinaten van het 
complexe getal ( 3 , 4 ) zijn : 
modulus: 5 
argument: „927295 


nog een bewerking? (j/n) 
Ok 


Programma: 


1 


REM *** complexe getallen *** 


20 REM ** invoer van complex getal *%* 


35 


PI#=3, 1415926548 


49 KEY OFF:CLS:LOCATE 5,2 


55 


PRINT" **** complexe getallen 1 ***x" 


89 PRINT:PRINT 


9 

195 
119 
129 
135 
149 
159 
169 
175 
185 
197 
205 


PRINT "mogelijke bewerkingen: " 


PRINT"omzetten naar poolcoördinaten (P)” 


PRINT"bepalen van E-macht (E)” 
PRINT"bepalen van LN (L)” 
PRINT"bepalen van wortel (HR) T 


PRINT: PRINT "bewerking?" ; 
BW$=INKEY$: IF BW$="" THEN 150 


PRINTBW$ 

IF BW$="P" OR BW$="p" THEN BW=1 
IF BW$ E " THEN BW=2 
IF BW$ " THEN BW=3 


IF BW$="W" OR BW$="w" THEN BW=4 
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210 IF BW=@ THEN PRINT"verkeerde invoer":GOTO 149 
229 GOSUB 300 

230 REM * invoer van bewerking ** 
247 ON BW GOSUB 359, 470, 569, 640 
253 PRINT:PRINT 

269 PRINT"nog een bewerking? (j/n)” 
270 AN$=INKEY$:IF AN$="" THEN 279 
289 IF AN$-"j" OR AN$="J" THEN 49 
299 END 

337 REM *X invoer complex getal ** 
319 PRINT: PRINT 


329 PRINT"wat is het complexe getal (re, im)" 
339 INPUT" “;A1,B1 
340 RETURN 


357 REM ** ph poolcoördinaten *%* 

369 PRINT:PRINT 

373 PRINT"De poolcoördinaten van het" 

389 PRINT"complexe getal (“Al",‚,"B1") zijn :” 
399 R1=SQR(A1*A1+B1XB1) 

490 IF Al=0 THEN H1=SGN(B1I)*PI/2:GOTO 420 
410 H1I=ATN(B1/A1) 

429 IF Al<@ THEN Hi=H1+PI 

430 Al=R1 

445 B1=H1 

459 IF BW=1 THEN PRINT:PRINT" modulus: “CSNG(A1) 
:PRINT" argument: "CSNG(B1) 

469 RETURN 

475 REM *X bepalen E-macht ** 

489 PRINT: PRINT 

495 PRINT"de E-macht van het “ 

597 PRINT"complexe getal (“Al”,"B1") is:":PRINT 
517 R =EXP(A1) 

529 Al=RXCOS(B1) 

539 B1=RXSIN(B1) 

549 GOSUB 819’ * uitvoer * 

553 RETURN 

5679 REM ** bepaling natuurlijke log ** 

579 PRINT:PRINT 

589 PRINT"de natuurlijke logarithme v/h" 

599 PRINT"complexe getal is (“Al","B1") is:":PRIN 
T 

697 GOSUB 399’ X bepaal poolcoörd. * 

613 Al=LOG(AI) 

629 GOSUB 819’ * uitvoer * 

633 RETURN 
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649 
650 
660 
670 
680 
690 
700 
718 
720 
730 
740 
750 
760 
770 
780 
790 
820 
817 
820 


REM ** wortel trekken ** 

REM * invoer macht v/d wortel * 

PRINT: INPUT"macht van de wortel";N 

PRINT: PRINT 

PRINT"de “N"de machts wortels van het" 
PRINT"complexe getal ("Al","B1") zijn: ":PRINT 
GOSUB 399’ * bepaal poolcoörd. * 

A2=A1"(1/N) 

B2=B1 

REM * uitvoer van het resultaat * 

FOR K=@ TO N-1 

B1=(B2+2XPIXK) /N 

Al =A2XCOS(B1) 

B1=A2XSIN(B1) 

GOSUB 819’ * geef wortel weer X 

NEXT K 

RETURN 

REM ** weergave resultaat ** 

IF B1>4 THEN X=A1:GOSUB 879:PRINT" +I";:X=B1: 


GOSUB 879 


830 


IF B1<@ THEN X=A1:GOSUB 879:PRINT" —-I";:X=ABS 


(B1):GOSUB 879 


849 
855 
860 
879 
889 
895 


IF Bi=@ THEN X=A1:GOSUB 879 
PRINT 

RETURN 

REM * print format * 

PRINT USING "##8. BRBHER";X; 
RETURN 


1.4.2 COMPLEXE GETALLEN: BEWERKINGEN 


Met behulp van dit programma kunnen we een aantal bewerkingen met twee complexe ge- 
tallen (z1 en z2) uitvoeren 


optellen: z1 + z2 

aftrekken: z1 - z2 

vermenigvuldigen: z1 * z2 

delen. z1/z2 

machtsverheffen: z1 * z2 
worteltrekken: z1 1 (1/22) 

bepalen logaritme: log z2 met basis z1 


Op het beeldscherm worden deze bewerkingen symbolisch aangegeven. 
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Voorbeeld: 


KK complexe getallen 2 **** 


mogelijk bewerkingen: 


optellen 

aftrekken 

vermenigvuldigen 

delen 

machtsverheffen (zl als grondtal) 
worteltrekken (z2 als grondtal) 
logarithme van z2 als basis zl 


UE ONHE + 


rel, im1? 2,3 
re2,im2? 1,5.5 


bewerking? 
getal zl: ( 2,3 ) 
getal z2: ( 1, 5.5 ) 


vermenigvuldiging (z1*z2) 
geeft als resultaat 


„14.5 +1 14 
nog een bewerking? (j/n) 
Ok 
Programma: 


19 REM Xx complexe getallen 2 **x* 
29 REM ** invoeren van gegevens *%* 
33 GOSUB 189 
4D REM XX keuze van bewerking ** 

IF BW$="+" THEN GOSUB 590 
—" THEN GOSUB 640 
*” THEN GOSUB 690 
/“ THEN GOSUB 759 
“THEN GOSUB 850 
‘THEN GOSUB 919 
119 IF BW$="L" THEN GOSUB 974 
129 REM ** uitvoer van resultaat *% 
138 GOSUB 379 
149 PRINT:PRINT:PRINT"nog een bewerking? (j/n)" 
159 BW$=INKEY$: IF BW$= THEN 159 
169 IF BW$="j" OR BW$="J" THEN 30 
173 END 
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189 REM ** invoeren van gegevens *%* 

199 CLS:LOCATE 3,2 

295 PRINT" ***x complexe getallen 2 ****";:PRINT:P 
RINT 

219 PRINT:PRINT"mogelijk bewerkingen: ”:PRINT 
223 PRINT"optellen +" 
230 PRINT "aftrekken — 
249 PRINT" vermenigvuldigen ad 
257 PRINT“delen Ven 
263 PRINT"machtsverheffen (zl als grondtal) 
27% PRINT"worteltrekken (z2 als grondtal) w 
289 PRINT"logarithme van z2 als basis zl L 
299 PRINT:INPUT"rel, im1";A1,B1 

390 INPUT"re2, im2";A2,B2 

319 PRINT:PRINT "bewerking?" ; 

320 BW$=INKEY$: IF BW$="" THEN 320 

330 PRINT BW$ :PRINT:PRINT 

344 PRINT" getal zl: ("Al","BI")" 

350 PRINT" getal 22: (“A2","B2")" 

367 PRINT: RETURN 

375 REM * uitvoer van resultaten *%* 

389 PRINT'geeft als resultaat”:PRINT 

393 PRINT” “;:BUF=A1:GOSUB 1950 

490 IF Bi>g THEN PRINT” +I”;:BUF=B1:GOSUB 1959 
410 IF B1<g THEN PRINT" —-I“;:BUF=ABS(B1):GOSUB 19 
50 

420 RETURN 

435 REM ** bh poolcoödinaten ** 

445 R1=SQR(AIKA1+BIXB1) 

459 IF Al=@ THEN HI=SGN(B1)XPI/2:GOTO 475 

469 H1=ATN(B1/A1) 

479 IF Al<@ THEN Hi=H1+PI 

487 Al=R1:B1=H1 

499 RETURN 

507 REM *x bepaling nat. log. * 

519 GOSUB 439’ * ph poolcoörd. * 

520 Al=LOG(A1) 

539 RETURN 

547 REM *X bepaling E-macht #* 

557 R=EXP(A1) 

560 Al=RXCOS(B1) 

575 Bl=RXSIN(B1) 

58% RETURN 

597 REM *X optellen *% 

695 PRINT"optellen (z1+22)" 


Al=Al+A2 
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629 B1=B1+B2 

639 RETURN 

645 REM *k aftrekken ** 

659 PRINT'aftrekken (z1-22)" 

667 Al=Al-A2 

679 B1=B1-B2 

687 RETURN 

695 REM ** vermenigvuldigen ** 

790 IF BW$="X" THEN PRINT "vermenigvuldiging (z1*z 
2) 

710 R1=A1XA2-B1*XB2 

729 B1=A1*B2+A2XB1 

739 Al=R1 

749 RETURN 

750 REM XX delen ** 

760 IF BW$="/" THEN PRINT"deling (21/22)" 
770 GOSUB 439’ * Pb poolcoörd. * 

780 SWAP Al,A2 

790 SWAP B1,B2 

839 GOSUB 439’ * ph poolcoörd. * 

819 R1=A2/A1 

829 Al=R1*XCOS(B2-B1) 

837 Bl=R1XSIN(B2-B1) 

849 RETURN 

859 REM *% machtsverheffen *%* 

869 PRINT "machtsverheffing (Z1°Z2)" 
879 GOSUB 599’ * bepaal LN * 

883 GOSUB 699’ * vermenigvuldigen * 
895 GOSUB 549’ X bepaal E-macht * 
9D RETURN 

919 REM ** worteltrekken *% 

929 PRINT"worteltrekken (Z! © (1/22))" 
939 GOSUB 597’ & bepaal LN * 

940 GOSUB 759’ X delen « 

959 GOSUB 549’ * bepaal E-macht * 
969 RETURN 

975 REM ** log met compl. grndtal ** 
989 PRINT"log. bepaling (grondtal =Z1)" 
990 GOSUB 559’ X bepaal LN * 

1905 SWAP Al,A2 

1919 SWAP B1,B2 

1929 GOSUB 549’ X bepaal LN * 

1939 GOSUB 759’ X delen * 

1549 RETURN 

1959 REM *X print format *%* 

196% PRINT CSNG(BUF) ; 

1979 RETURN 


1.5 E-MACHTEN 
Dit programma berekent e-machten voor zeer grote waarden van het argument x 


Voorbeeld: 
X =? 1409 
EXP( 1990 ) = 1.97007 * E 434 


Programma: 


19 *' %k E-macht **x 
29 ’ XX invoer van x *x* 
39 GOSUB 90 

47 ’ ** berekening *% 
5@ GOSUB 159 

69 ’ XX uitvoer *%* 

78 GOSUB 200 

B3 END 

9Z ’ XX invoer van x *% 
199 CLS:KEY OFF 

119 PRINT" *t*x BEREKENING E-MACHT %*x” 
129 PRINT 

139 INPUT"X =";X 

149 RETURN 

159 ’ %* berekening ** 
169 C=X/LOG(19) 

178 B=INT(C) 

189 A=19"(C-B) 

195 RETURN 

297 * * uitvoer * 

219 PRINT 

220 PRINT"EXP("X") ="CSNG(A)"* EB 
239 RETURN 
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1.6 FACULTEITEN 


Met behulp van de volgende twee programma's kan men faculteiten berekenen. De facul- 
teit van een integer n komt overeen met 


nx(n-1)x(n-2)x……2x1 


Het eerste programma berust op de zogenaamde formule van Stirling, met dit programma 
kan men als argument ook een niet geheel getal invoeren. 
Het tweede programma geldt voor gehele getallen 


1.6.1 STIRLING-BENADERING 


Zoals hierboven beschreven berekent dit programma de faculteit van een getal, waarbij ook 
niet-gehele getallen als argument ingevoerd mogen worden. 


Voorbeeld: 


“xx Stirling-benadering *** 
sk van faculteiten a 


x (x21) ? 6.45 


6.45 ! = 1698 
Programma: 
19 REM X*4 Stirling benadering *** 
29 CLS:LOCATE 5,2 
39 PRINT"*t*& Stirling-benadering *%*x” 
49 PRINT” “kkk van faculteiten sok” 
59 REM * invoer van gegevens Xx 
63 GOSUB 129 
10 REM * berekening *x 
89 GOSUB 160 
9D REM * uitvoer van resultaat *x 


197 GOSUB 297 

119 END 

125 REM ** invoer van gegevens ** 
139 PI#=3.141592654# 

143 PRINT:PRINT:INPUT"x (x21) ";X 
159 RETURN 
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165 REM * berekening ** 

170 F=1+1/(12%X)+1/(288XX*X) -139/(5184G!XX°3)-571 
/(24BB32DHKX" 4) 

189 R=SQR( 2PIKX) XX" XKEXP(-X) XF 

199 RETURN 

207 REM ** uitvoer van resultaat ** 

219 PRINT:PRINT:PRINT X"! =";CSNG(R) 

229 PRINT 

235 RETURN 


1.6.2 FACULTEIT 


Dit programma is algemeen toepasbaar. Het berust op het feit dat we een vermenigvuldi 
ging door een optelling van logaritmen kunnen voorstellen. Het berekent tevens de faculteit 
van zeer grote getallen 


Voorbeeld: 
“kk faculteit 
Geef getal >0 ? 100 
192 ! = 9,33262 #E 157 


Programma: 


15 REM **& FACULTEIT ** 

27 REM *x input *x 

30 CLS:LOCATE 5,2 

45 PRINT" ***x faculteit kx” 

5@ PRINT:PRINT:INPUT"Geef getal >9 “;NR 
65 REM ** berekening ** 

79 FOR A=1 TO NR 

BZ S=S+LOG(A) 

9 NEXT A 

199 S=5/LOG(19) 

119 REM ** uitvoer * 

129 SI=S-INT(S) 

139 PRINT:PRINT:PRINT NR"! =";CSNG(10°SI) ; "XE"; IN 
T(S) 

149 END 


1.7 INTEGREREN EN DIFFERENTIEREN 


Sinds Newton en Leibnitz behoren integreren en differentiëren stellig tot een van de meest 
uitgevoerde mathematische bewerkingen. 

Het aardige is dat met de computer deze bewerkingen weer tot een vorm worden terugge- 
bracht die direct aanvoelbaar is. integreren komt neer op het verdelen van de functie in 
reepjes, het oppervlak van die reepjes wordt daarna opgeteld. 

Differentiëren komt neer op het bepalen van twee dicht bijeen gelegen functiewaarden, 
waarna de toename als functie van delta-x wordt bekeken. 


1.7.1 INTEGREREN 


Het hier gegeven programma berekent de integraal van een functie tussen twee aangege- 
ven grenzen. De functie zelf wordt gegeven in regel 70. Bij het bepalen van de integraal 
wordt gebruik gemaakt van de regel van Simpson. 

Achtereenvolgens wordt gevraagd naar de integratiegrenzen en de gewen 
righeid 


jauwkeu- 


Voorbeeld: 
Bereken de integraal van f(x)=x? + sin(x) tussen de grenzen 2en 3 


xk INTEGREREN xn 


De te integreren functie 
is te veranderen door regel 70 
te wijzigen 


Default functie : 
L(x)=X"2+SIN(X) 
ondergrens? 2 
3 


bovengrens 
Tolerantie? 


2001 


de integraal is : 6.99718 


Soms is het mogelijk de functie zelf analytisch te integreren, wat to! nauwkeuriger resultaten 
kan leiden, In dit geval kunt u ook een indruk krijgen van de nauwkeurigheid van dit pro- 
gramma. 
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Programma: 


19 
20 
35 
40 
55 
62 
70 
89 
95 


* kok INTEGREREN **kx 
CLEAR:KEY OFF:CLS:DEFSNG A:AS=500 
PRINTSPC(8) "**** INTEGREREN ***x* 
LOCATE 9,4 

’ functie invoer 

F$="X"2+SIN(X)" 

DEF FNF(X)=EXP(X) 

PRINT"De te integreren functie 
PRINT"is te veranderen door regel 70 


19% PRINT"te wijzigen 

119 PRINT:PRINT"Default functie : 
129 PRINT: PRINTSPC(6)"f(x)="F$ 
139 PRINT 

149 INPUT "ondergrens" ;X@ 


159 
160 


INPUT "bovengrens"; X4 
IF X@<X4 THEN 190 


178 PRINT"? ondergrens moet kleiner zijn als 
bovengrens" 

189 GOTO 149 

199 INPUT"Tolerantie";EPS 


200 


DIM A(AS,9):J=0:S1=0 


215 MA=18G*EPS/ABS(X4-X0) 


220 


FO=FNF (XO) : F4=FNF(X4) : F2=FNF((XO+X4) /2) 


239 GOSUB 299’ bereken integraal 
240 PRINT 
250 IF J<790 THEN PRINT"de integraal is :"CSNG(S/ 


12) 


:GOTO 279 


269 PRINT"De gewenste tolerantie kan niet bereikt 
worden 

273 PRINT 

289 END 

299 ’ bereken integraal 

309 X2-(XP+X4)/2 

319 F1=FNF((XO+X2)/2) 

320 F3=FNF((X2+X4)/2) 

330 HULP=6XF2-4X(F1+F3)+FO+F4 

349 IF ABS(HULP)<MA THEN 359 ELSE 360 

350 S=(X4-XO)K(4K(F1+F3) +2XF2+FZ+F4-HULP/15) : GOTO 
450 

360 A(J,D) XD: A(JT, 1)=X2:A(J, 2)=X4:A(JT, 3)=FD:A(T, 4 
)=F1 

370 A(J,5)=F2:A(J,6)=F3:A(J, 7)=F4:A(J,B)=S1:A(J, 9 


)=l 
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383 J=J+1:IF J>AS THEN 490 

390 X4=X2:F4-F2:F2=F1 

497 GOTO 299: integraal op <xO,x2> 

419 S1=S:A(J,9)=2:J=J+1 

420 XO=-X2:FO=F2:F2=F3 

439 GOTO 299’ integraal op <x2,x4> 

447 S=S+S1:S1=A(J,8) 

459 J=J-1:IF J<O THEN 499 

46% XO=A(J,D) :X2=A(J, 1): X4=A(J, 2) :FG=A(J, 3) 
470 F1l=zA(J,4):F2=A(J, 5) :F3=A(J,6):F4z=A(J, 3) 
485 ON A(J,9) GOTO 410, 449 

499 RETURN 


Opmerking: 


1. Bij bepaalde, grillig verlopende functies is het mogelijk dat het programma de integraal 
niet met de door u gevraagde nauwkeurigheid kan bepalen. Probeer het opnieuw met 
een grotere tolerantie. 


1.7.2 DIFFERENTIEREN 


Het hier beschreven programma bepaalt de afgeleide van een functie in een aan te wijzen 
punt door rond dat punt twee functiewaarden te bepalen. 

De functie is gegeven in regel 70 van de listing. 

Stel dat we de afgeleide van de functie x? + sin(x) willen bepalen. 

Het programma vraagt nu om het punt waarvan de afgeleide bepaald moet worden. Als 
z.g. delta-x-waarde is in het programma de waarde 0.002 genomen. Uiteraard hangt zo'n 
keuze af van de functie waarvan men de afgeleide in een bepaald punt wil benaderen en 
de nauwkeurigheid die men wenst te bereiken. 

Het programma is alleen bedoeld om voor een bepaalde functie snel afgeleiden te bepalen. 
Een nog betere weg is uiteraard het analytisch differentiëren van de functie zelf. Zo is de 
afgeleide van de gegeven functie 2x + cos(x) en voor x=5 vinden we de waarde 10 + 
0.2836622 = 10.2836622. 


Aan de hand van dergelijke berekeningen kan men tevens een indruk van de nauwkeurig- 
heid van het programma verkrijgen. 
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Voorbeeld: 


Berek 


en de afgeleide waarde van de functie x? + sin(x) in het punt x=5. 


sk DIFFERENTIEREN *trx 


De te differentiëren functie 
is te veranderen door regel 70 
te wijzigen 
Default functie : 

fx) =X"2+SIN(X) 


Voor welke X-waarde wilt u 
differentiëren? 5 


Voor x= 5 bedraagt de 
afgeleide : 19.2837 


Programma. 


19 
25 
30 
45 
50 
65 
75 
85 
9% 
109 
119 
129 
130 
149 


’ xk DIFFERENTIEREN *tekx 

CLEAR:KEY OFF: CLS 

PRINTSPC(6) “***x DIFFERENTIEREN %*kx 

LOCATE @, 4 

’ functie invoer 

F$="X"2+SIN(X)" 

DEF FNF(X)=X"2+SIN(X) 

PRINT"De te differentiëren functie 

PRINT"is te veranderen door regel 70 
PRINT"te wijzigen 
PRINT:PRINT"Default functie : 
PRINT: PRINTSPC(6)"f(x)="F$ 
’ input x-waarde 

PRINT 


159 PRINT"Voor welke X-waarde wilt u” 
169 INPUT"differentiëren";X1 

179 * berekening 

189 X=X1-1E-Z4 

199 F1=FNF(X) 

290 X=X1+1E-Z4 

219 F2-FNF(X) 

229 RES=(F2-F1)/2E-04 
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23 ’ resultaat 

249 PRINT 

253 PRINT"Voor x="CSNG(X1) "bedraagt de 
269 PRINT"afgeleide :"CSNG(RES) 

275 PRINT 

283 END 


1.8 MATRIXBEWERKINGEN 


De meest algemene definitie van een matx is: een matrix is een rechthoek van getallen. 
Een dergelijke rechthoek kunnen we dan verdelen in een aantal rijen en een aantal ko- 
lommen, 

Matrixberekeningen worden in zeer veel situaties toegepast en de lezer die graag een ver- 
teerbare inleiding over matrices wil doornemen wordt verwezen naar de Aula-uitgave van 
W.W. Sawyer: „Wegwijs in de wiskunde’ 

In het nu volgende treft men programma's aan voor. 


het vereenvoudigen van matrices 

het bepalen van de determinant 

het oplossen van een stelsel vergelijkingen 
het bepalen van de inverse matrix 


1.8.1 VEREENVOUDIGEN VAN MATRICES 


Met behulp van dit programma kunnen we een matrix vereenvoudigen. 

Het programma vraagt eerst om het aantal kolommen en het aantal rijen. Hierna dienen dan 
de afzonderlijke getallen van de matrix te worden ingevoerd, 

Uiteindelijk wordt de matrix in de volgende vorm gebracht: 


IKK. 
Otxx. 
001x..…. 
0001... 


Xxxx 


Hierbij stelt x een willekeurig getal voor. 


Voorbeeld: 


KK matrix vereenvoudigen **** 


Aantal kolommen ? 3 
Aantal rijen 3 
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geef de elementen van de matrix 


rij 1 : kolom 
e kolom 
kolom 

rij 2 : kolom 
kolom 

kolom 

rij 3 : kolom 
kolom 

kolom 


ON Ne WN 
=O 0 0 0 0 20 20 20 0 
IDO Oe WN 


even geduld aub 


Vereenvoudigde matrix: 


1 2 3 

2 1 3 

9 @ 1 
Programma: 


19 
20 
35 
40 
55 
65 
70 
89 
9% 
195 
119 
129 
139 
149 
159 
169 
179 
189 
199 
200 
219 
220 
230 
240 
250 


REM **x matrix vereenvoudigen *** 
REM *x invoer van matrix *% 
GOSUB 245 
REM ** hoofdprogramma *%* 
Kl=1 
FOR Ri=1 TO M 
REM * zoek element<>@ in kol k2 * 
FOR K2=K1 TO N 
FOR R2=R1 TO M 

IF A(R2,K2)<>@ THEN K1=K2:GOTO 180 
NEXT R2 

NEXT K2 

REM * vegen beëindigd * 

REM X geef vereenvoudigde 

REM * matrix weer * 

GOSUB 419 

END 

REM * wissel rijen rl en r2 om * 
GOSUB 620 

REM * veeg kolom k1 schoon 

GOSUB 689 

NEXT R1 

GOTO 139 

REM * invoer van matrix X 
CLS:LOCATE 3,9 
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PRINT "*%x matrix vereenvoudigen **x*": LOCATE 


5,4 


279 
289 
295 
303 
319 
320 
330 
347 
350 
360 
370 
389 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
519 
520 
530 
545 
550 
565 
570 
583 
597 
655 
619 
629 
639 
649 
659 
665 
675 
685 
690 
700 
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INPUT" Aantal kolommen “;N 
INPUT"Aantal rijen “;M 
DIM A(M,N) 

PRINT 

PRINT"geef de elementen van de matrix” 
PRINT 

FOR I=1 TO M 

PRINT"rij"I" :"; 

FOR J=1 TO N 

PRINT TAB(18)“kolom"J; 

INPUT A(I,J) 

NEXT J:NEXT I 
PRINT:PRINT"even geduld aub” 
RETURN 

REM * uitvoer vereenv. matrix * 
PRINT:PRINT"Vereenvoudigde matrix: 
PRINT 

REM * maak elementen op 

REM X hoofddiagonaal >Z * 

IF N<M THEN Mi=N ELSE M1=M 
FOR I=1 TO M1 

IF A(I,I)>=0 THEN 520 

FOR J=1 TO N 

A(I, J)=-A(I,J) 

NEXT J 

NEXT I 

REM * druk matrix af %* 

FOR I=1 TO M 

FOR J=1 TO N 

PRINT USING" ##8#";A(I,J), 
NEXT J 

PRINT 

NEXT I 

PRINT 

RETURN 

REM « swap rijen rl en r2 * 
IF Ri=R2 THEN 679 

FOR I=1 TO N 

SWAP A(R1,I),A(R2, I) 

NEXT I 

RETURN 

REM * k1 schoonvegen met rl * 
FOR R2=R1 TO M 

IF R2=R1 THEN 76% 


718 
723 
739 
740 
758 
769 
170 
789 
795 
800 
817 
820 
830 
849 
850 
860 
879 
889 
899 
00 
919 
927 
937 
947 
957 
960 
970 
987 
997 


1909 


D=A(R2,K1) 
IF D=Z THEN 760 
FOR K2=1 TO N 


A(R2,K2)=A(R2,K2)*A(R1,K1)-A(R1,K2)*D 


NEXT K2 
REM X deel rij r2 door GGD * 
GOSUB 807 
NEXT R2 
RETURN 
REM * deel rij r2 door GGD * 
REM zoek kleinste element * 
KL=0 
FOR I=1 TO N 
D=ABS(A(R2, I)) 
IF KL=G OR KL>D THEN KL=D 
NEXT I 
IF KL=@ THEN RETURN 
’ « bepaal de factoren van KL en 
* controleer of deze ook facto- 
ren zyn v/d andere elementen * 
GGD=1 
REM * bepaal factor van KL * 
P=2 
MX=INT(SQR(KL) ) 
IF P>MX THEN P=KL 
D=KL/P 
IF D=INT(D) THEN 1990 
IF P=2 THEN P=3 ELSE P=P+2 
GOTO 955 
KL=D 


PI 


‚ 


1919 ’ * kontroleer of P een gemeen 
1929 ’ schap. factor is van rij R2 * 
1939 FOR I=1 TO N 

1943 D=ABS(A(R2, I))/P 

1950 IF D<>INT(D) THEN 1989 

1969 NEXT I 

1978 GGD=GGD*P 


1989 
1995 
1199 


IF KL>1 THEN 949 
REM X deel rij R2 door GGD * 
FOR I=1 TO N 


1119 A(R2, I)=A(R2, I) /GGD 
1129 NEXT I 
1139 RETURN 
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1.8.2 HET BEPALEN VAN DE DETERMINANT 


Aan een vierkante matrix wordt een getal toegevoegd: de zogenaamde determinant van die 
matrix. Bijvoorbeeld voor de matrix 


a, b, 
a, ba 
is de determinant: 


a,b, — apb, 


De determinant is slechts te bepalen van een n x n matrix, dus van een matrix die evenveel 
rijen als kolommen heeft. De determinant is onder andere nodig om te bepalen of een stelsel 
lineaire vergelijkingen al of niet onafhankelijk Is. 


Voorbeeld: 


“rk determinant bepalen ***+* 


Dimensie v/d matrix ? 3 
Geef nu de elementen van de matrix 


rij 1 : kolom 
kolom 
kolom 
rij 2 : kolom 
kolom 
kolom 
rij 3 : kolom 
kolom 
kolom 


2 


ONU 


00000000 
OO Ne 


Even geduld aub 


Vereenvoudigde matrix: 


1 2 3 
9 1 3 
] 7] 5 | 


Determinant = 12 
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Programma: 


19 
29 
35 
45 
50 
69 
70 
87 
95 


REM *** determinant bepalen *** 
REM Xx invoer van matrix *% 
GOSUB 259 

REM * matrix vereenvoudigen * 
DET=1 

K1i=1 

FOR Ri=1 TO M 

REM * zoek element<>9 in kol K2 * 
FOR K2=K1 TO N 


195 FOR R2=R1 TO M 

119 IF A(R2,K2)<>@ THEN K1=K2:GOTO 199 
125 NEXT R2:NEXT K2 

139 REM * vegen beëindigd %* 

149 ’ Xx geef vereenvoudigde matrix %* 
155 GOSUB 429 

169 ’ * berekenen en printen van det * 
179 GOSUB 580 

189 END 

199 ’ * swap rijen Rl en R * 

290 GOSUB 679 


219 REM * veeg kolom Kl schoon 
225 GOSUB 749 

230 NEXT R1 

249 GOTO 139 


250 
260 
270 
280 
295 
300 


REM * invoer van matrix * 
CLS:LOCATE 4,9 

PRINT" **** determinant bepalen %**x” 
LOCATE @, 4 

INPUT"Dimensie v/d matrix ";N 

M=N 


315 DIM A(M,N) 
329 PRINT 


339 PRINT"Geef nu de elementen van de matrix" 


NT 


349 FOR I=1 TO M 

359 PRINT'rij"I" :"; 

369 FOR J=1 TO N 

370 PRINT TAB(1@)“kolom"J; 
385 INPUT A(I,J) 

390 NEXT J:NEXT I 


400 
419 


PRINT:PRINT"Even geduld aub" 
RETURN 


:PRI 
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420 
430 
449 
453 
469 
470 
485 
490 
500 
519 
529 
530 
540 
559 
569 
570 
589 
590 
650 
619 
629 
630 
649 
650 
669 
670 
680 
699 
700 
719 
720 
730 
749 
750 
760 
7170 
780 
799 
800 
819 
820 
832 
840 
850 
860 
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’ « Uitvoer van vereenv. matrix %* 
PRINT:PRINT" Vereenvoudigde matrix 
’ *x« maak elementen op hfddiag>g * 
FOR I=1 TO M 

IF A(I,I)>=0 THEN 519 

FOR J=l TO N 

A(I,J)=-A(I,J) 

NEXT J 

DET=DET*X-1 

NEXT I 

REM X druk matrix af * 

FOR I=1 TO M 

FOR J=1 TO N 

PRINT A(I,J);" "5 

NEXT J:PRINT:NEXT I 

RETURN 

’ «x berekenen v/d determinant 

mbv de vereenvoudide matrix 

’ en de correctiefactor DET %* 

FOR I=1 TO N 

DET=DETXA(I, I) 

NEXT I 

’ «x uitvoer van determ. waarde % 
PRINT:PRINT"Determinant =";DET: PR 
RETURN 

’ * swap Rl en R2 * 

IF Ri=R2 THEN 730 

FOR I=1 TO N 

SWAP A(R1,I),A(R2,I) 

NEXT I 

DET=DET*-1 

RETURN 

’ % kol K1 schoonvegen met Rl * 
FOR R2=R1 TO M 

IF R2=R1 THEN 839 

D=A(R2,K1) 

IF D=@ THEN 839 

FOR K2=1 TO N 


’ 


:“:PRINT 


INT 


A(R2,K2)=A(R2,K2)*A(R1,K1)-A(R1,K2) xD 


NEXT K2 

DET=DET/A(R1,K1) 

* * deel rij R2 door GGD * 
GOSUB 879 

NEXT R2 

RETURN 


875 ’ * deel rij R2 door GGD * 

B89 ’ * zoek kleinste element * 
899 KL=D 

905 FOR I=1 TO N 

919 D=ABS(A(R2, I)) 

929 IF (KL=G) OR (KL>D) THEN KL=D 
939 NEXT I 

949 IF KL=Z THEN RETURN 

959 ’ * bepaal fact. van KL en kon- 
969 ’ troleer of deze ook fact. zijn 
975 ’ van de andere elementen %* 
989 GGD=1 

997 ’ * bepaal factor van KL * 
1909 P=2 

1915 MX=INT(SQR(KL) ) 

1929 IF P>MX THEN P=KL 

1939 D=KL/P 

1949 IF D=INT(D) THEN 1979 

1959 IF P=2 THEN P=3 ELSE P=P+2 
1969 GOTO 1929 

1979 KL=D 

1989 ’ X* kontroleer of P een gemeen- 
1999 ’ sch. factor is van rij R2 * 
1195 FOR I=1 TO N 

1119 D=ABS(A(R2, I)) /P 

1120 IF D<>INT(D) THEN 1159 

1139 NEXT I 

1149 GGD=GGD*P 

1159 IF KL>1 THEN 1919 

1169 ’ x deel rij R2 door GGD * 
1179 FOR I=1 TO N 

1189 A(R2, I)=A(R2, I) /GGD 

1199 NEXT I 

1295 DET=DETXGGD 

1219 RETURN 


1.8.3 HET OPLOSSEN VAN EEN STELSEL LINEAIRE VERGELIJKINGEN 


Dit programma maakt zowel gebruik van het vereenvoudigen van een matrix als van het 
bepalen van de determinant. Een stelsel lineaire vergelijkingen is uitsluitend onafhankelijk 
als de determinant van die (n x n)-matnx ongelijk O Is. 


De invoer van de matrix moet aan bepaalde eisen voldoen. Elk stelsel vergelijkingen moet 
namelijk eerst in de volgende vorm geschreven worden 
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AX, + Ask + + Aino =D, 

AayXs + AzoXa + + AanXn = Dz 
+ + + ed 

Ami%1 + Am2X2 + + Ann = Dm 


Het zijn de getallen a, die moeten worden ingevuld. Het laatste getal b, komt steeds op de 
laatste plaats in de rij invoergegevens 


Voorbeeld: 
We hebben de volgende vergelijkingen. 


Xx, = 3 — X2 
Xx = 5 — 2% 


Eerst worden ze herschreven 


3 
5 


Xi + Xa 
X + 2xa 


Hierna wordt het programma gebruikt 


“kk OPLOSSEN VAN VERGELIJKINGEN 


Aantal vergelijkingen ? 2 


Geef nu de coëfficiënten van de 


vergelijkingen: 

rij 1 : kolom 1? 1 
kolom 2 ? 1 
kolom 3 ? 3 

rij 2 : kolom 1? 1 
kolom 2 ? 2 
kolom 3 ? 5 


Determinant = 1 

Oplossing v/d vergelijkingen: 
X1 =1 

X2 =2 
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Programma: 


19 ’ **X vergelijkingen oplossen **x 
29 ’ XX invoer van coëfficiënten *« 
33 GOSUB 269 

45 ’ ** matrix tereenvoudigen *% 

57 DET=1 

69 Ki=1 

79 FOR Ri=1 TO M 

89 ’ « zoek element<>g in kolom K2 * 
97 FOR K2=K1 TO N 

109 FOR R2=R1 TO M 

119 IF A(R2,K2)<>@ THEN K1i=K2:GOTO 200 
129 NEXT R2:NEXT K2 

139 ’ * berekenen v/d determinant * 
149 GOSUB 1210 

159 ’ « berekenen van evt snijpunt * 
16 GOSUB 1289 

179 ’ * uitvoer van oplossing * 

189 GOSUB 430 

199 END 

295 ’ * swap rijen Rl en R2 

219 GOSUB 659 

220 ’ veeg kolom K1 schoon * 

235 GOSUB 729 

249 NEXT R1 

250 GOTO 130 

269 ’ « invoer van coëfficiënten * 
279 CLS 

283 PRINT" **** OPLOSSEN VAN VERGELIJKINGEN 
290 LOCATE 9,4 

335 INPUT"Aantal vergelijkingen “;M 
319 N=M+1 

325 DIM A(M,N),B(M,N) 

339 PRINT:PRINT"Geef nu de coëfficiënten van de": 
PRINT "vergelijkingen: ":PRINT 

345 FOR I=1 TO M 

359 PRINT"rij"I" :"; 

369 FOR J=1 TO N 

373 PRINTTAB(19) "kolom"J; 

389 INPUT A(I,J) 

399 B(I,J)=A(I,J) 

400 NEXT J:NEXT I 

419 PRINT:PRINT"Even geduld aub" 

420 RETURN 
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430 
445 
450 
460 
470 
sel 
489 
NT 

497 
500 
515 
520 
530 
540 
550 
560 
570 
580 
597 
695 
619 
629 
630 


640 
650 
669 
675 
685 
697 
700 
719 
720 
730 
740 
150 
765 
77% 
780 
790 
890 
819 
820 
839 
845 
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‚ 


* uitvoer van oplossing * 

CLS 

PRINT "**t& OPLOSSEN VAN VERGELIJKINGEN %%*x” 
LOCATE 9,4 

’ x uitvoer van de coëfficiënten van het stel 
* 


PRINT"De coëfficiënten v/h stelsel zijn: ":PRI 


FOR I=1 TO M 

FOR J=l TO N 

PRINT B(I,J)" “; 

NEXT J:PRINT:NEXT I 

’ * uitvoer van determinant %* 
PRINT:PRINT"Determinant =";DET 

’ X uitvoer van oplossing * 

PRINT 

IF DET=@ THEN 630 

PRINT"Oplossing v/d vergelijkingen: ”":PRINT 
FOR I=1 TO M 

PRINT"X"I" ="A(I,N):PRINT 

NEXT I 

GOTO 640 

PRINT"Het stelsel is niet eenduidig oplosbaar 


RETURN 

’ * swap rijen Rl en R2 * 
IF Ri=R2 THEN 719 

FOR I=1 TO N 

SWAP A(R1,I),A(R2, I) 

NEXT I 

DET=DETX-1 

RETURN 

’ & kolom K1 choonvegen met R1 * 
FOR R2=1 TO M 

IF R2=R1 THEN 819 
D=A(R2,K1) 

IF D=@ THEN 81% 

FOR K2=1 TO N 
A(R2,K2)=A(R2,K2)*A(R1,K1)-A(R1,K2)*D 
NEXT K2 

DET=DET/A(R1,K1) 

> * deel rij R2 door GGD * 
GOSUB 850 

NEXT R2 

RETURN 


859 
860 
879 
880 
895 
0 
919 
920 
937 
947 
950 
960 
970 
987 
997 


1900 
1919 


’ x deel rij R2 door GGD %* 

’ «x zoek kleinste element * 
KL=0 
FOR I=1 TO N 
D=ABS(A(R2, I)) 

IF KL=O OR KL>D THEN KL=D 
NEXT I 

IF KL=@ THEN RETURN 

’ * bepaal de factoren van KL 
en kontroleer of deze ook 
factoren zijn van de andere 
’elemanten 
GGD=1 

’ *X bepaal factor van KL * 
P=2 

MX=INT(SQR(KL) ) 

IF P>MX THEN P=KL 


‚ 


‚ 


1929 D=KL/P 


1930 
1049 
1950 
1969 
1979 
1989 
1995 
1190 
1119 
1120 
1130 
1149 
1159 
1169 
1179 


1189 
1199 
1290 
1219 
1229 
1239 
1249 
1259 
1269 
1279 
1289 
1299 
1309 


IF D=INT(D) THEN 1960 

IF P=2 THEN P=3 ELSE P=P+2 
GOTO 1919 

KL=D 

* *& kontroler of P een gemeen- 
’ sch. factor is van rij R2 * 
FOR I=1 TO N 

D=ABS(A(R2, I)) /P 

IF D<>INT(D) THEN 1140 

NEXT I 

GGD=GGD*P 

IF KL>1 THEN 1400 

’ * deel rij r2 door GGD * 

FOR I=1 TO N 

A(R2, I)=A(R2, I) /GGD 

NEXT I 

DET=DETXGGD 

RETURN 

’ xberekenen v/d determinant 

’ mbv de vereenvoudigde matrix 
’ en de correctiefactor DET * 
FOR I=1 TO M 

DET=DETXA(I, I) 

NEXT I 

RETURN 

’ _X berekenen v/d de oplossing 
’ v/h stelsel * 

IF DET=@ THEN 1354 
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1319 FOR I= 
1329 A(I,N) 
1339 A(I,I) 
1349 NEXT I 
1359 RETURN 


A(I, 
1 


1 TO M 
= N)/A(I, I) 
1.8.4 INVERSE MATRIX 


Tot slot een programma om de inverse matrix te bepalen. Deze is alleen te bepalen van 
een vierkante matrix. Stel, we hebben de volgende matrix 


12 
32 


Een matrix vermenigvuldigd met z'n inverse levert per definitie de eenheidsmatrix, dus: 


|t2l„faecl_|to 
[3 2} “|[b af “lo 1 
waarbij dus 5 pf de inverse matrix is. 


Via matrixvereenvoudiging krijgen we twee stelsels vergelijkingen: 


la + 2b= 1 
3a + 2b 


u 
o 


1e + 2d = 0 
3c + 2d = 


Als deze vergelijkingen opgelost worden ontstaat de inverse matrix 


Voorbeeld: 
xt INVERSE MATRIX BEPALEN %t 


Dimensie v/d matrix? 2 
Geef de elementen v/d matrix 


rij 1 : kolom 1 ? 1 
kolom 2 ? 2 
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rij 2 : kolom 1 ? 3 
kolom 2 ? 2 


Even geduld aub 
De inverse matrix is: 


=5 „5 
75 —.25 


Programma: 


19 
20 
3% 
47 
50 
69 
70 
89 
97 


REM *** inverse matrix bepalen *** 
REM *X invoer van matrix *% 

GOSUB 249 

REM ** hoofdprogramma ** 

DET=1 

FOR R1=1 TO N 

’ «x zoek element<>g in rij R1 * 
FOR KI=R1 TO N 

IF A(R1,K1)<>@ THEN 199 


105 NEXT K1 
110 IF A(R1,R1)=@ THEN DET=9:GOTO 152 
129 NEXT R1 


139 
149 


’ 


* correctie vermenigvuldiging * 
GOSUB 800 


159 ’ ** einde hoofdprogramma ** 

169 ’ * uitvoer van inverse matrix * 
179 GOSUB 475 

189 END 

199 ’ * verwisselen van kolommen * 
207 GOSUB 597 

219 ’ * vegen van rij R1 * 

229 GOSUB 680 

237 GOTO 119 

249 ’ * invoer van matrix * 

259 CLS:LOCATE 4,9 

269 PRINT"**xx INVERSE MATRIX BEPALEN %%xx” 
273 LOCATE @,4 

280 INPUT"Dimensie v/d matrix” ;N 

295 DIM A(N, 2%N) 


300 PRINT:PRINT"Geef de elementen v/d matrix” 


NT 


319 FOR I=1 TO N 
329 PRINT"rij"I" :"; 
330 FOR J=1 TO N 


:PRI 
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340 
350 
369 
37% 
380 
390 
400 
415 
425 
430 
447 
455 
469 
475 
485 
497 
500 
51% 
520 
530 
54g 
550 
569 
570 
587 
590 
605 
619 
629 
630 
645 
659 
66% 
675 
685 
697 
700 
719 
720 
735 
740 
150 
765 
770 
785 
793 
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PRINTTAB( 19) “kolom"J; 

INPUT A(I,J) 

B(I,J)=A(I,J) 

NEXT J:NEXT I 

PRINT:PRINT"Even geduld aub" 

FOR I=1 TO N 

FOR J=N+1 TO 2%XN 

A(I,J)=0 

NEXT J:NEXT I 

FOR I=1 TO N 

A(I,N+I)=1 

NEXT I 

RETURN 

’ « uitvoer van inverse matrix X 
PRINT 

IF DET=@ THEN 560 

PRINT"De inverse matrix is: ":PRINT 
FOR I=1 TO N 

FOR JaN+1 TO 2*N 

PRINT A(I,J)" “; 

NEXT J:PRINT:NEXT I 

GOTO 575 

PRINT"De inverse matrix bestaat niet” 
PRINT: PRINT 

RETURN 

’ « verwisselen van kol. Kl en 

> K2=Rl en van N+K1l en N+K2 * 

IF Ki=R1 THEN 670 

E=N+K1: F=N+R1 

FOR I=1 TO N 


SWAP A(I,K1),A(I,RI) 

SWAP A(I,E),A(I,F) 

NEXT I 

RETURN 

’ * vegen van rij Rl met kol. k2 * 
E=N+R1 


FOR K3=1 TO N 

IF K3=R1 THEN 789 
D=A(R1,K3) /A(R1,R1) 
F=N+K3 

FOR R2=1 TO N 


A(R2,K3) =A(R2, K3) -A(R2, RI) XD 
A(R2,F)=A(R2, F)-A(R2, E)*D 
NEXT R2 

NEXT K3 

RETURN 


849 ’ « correctie vermenigvuldiging * 
819 IF DET=G THEN 869 

820 FOR I=1 TO N 

839 FOR J=1 TO N 

840 A(J,N+I)=A(J,N+I)/A(I, I) 

850 NEXT J:NEXT I 

86% RETURN 


1.9 DE ERRORFUNCTIE 


Laten we allereerst de definitie van de errorfunctie geven. Deze luidt als volgt 


erf(x) = | e-“ du (x>0) 
o 


De errorfunctie komt men op allerle: plaatsen in de wiskunde tegen. Allereerst zullen we zien 
dat er een duidelijke relate is tussen deze functie en de standaardnormaalverdeling. Ten 
tweede zullen we zien dat deze functie een belangrijke rol speelt bij allerlei problemen rond 
warmtegeleiding 


De formule waarmee de erf(x) uiteindelijk op de computer benaderd wordt luidt: 


erf(x) = 1 — (ast + agt? + agt? + aatf + astSje” 


met t= U(1 + px) 
en 0.3275911 
0.254829592 
—0.284496736 
1.421413741 
—1.453152127 
1.061405429 


Pl ae 


1. Relatie met standaardnormaalverdeling 


Om de overeenkomst tussen beide functies te bestuderen beschouwen we allereerst de 
standaardnormaalverdeling. 


Deze wordt weergegeven door. 


f(x) = 
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Voor alle duidelijkheid: het gaat hier om de kansdichtheidsfunctie, met andere woorden: de 
integraal van deze functie ussen twee aangegeven grenzen geeft de kans op een uitkomst 
tussen die grenzen, dus: 


PX < X < X%) = Í f(u) du 


* 


Welnu, de relatie tussen kansdichtheidsfunctie en de errorfunctie luidt. 
erf(x) = 4Vr | fu) du 


2. Problemen rond warmtegeleiding. 


Bij warmtegeleiding kunnen we denken aan een materiaal dat in contact wordt gebracht 
met een bepaalde temperatuur. 

Als de temperatuur van het materiaal nu wordt weergegeven door de functie y dan zal deze 
functie afhangen van twee variabelen, namelijk de afstand x tot de rand waar het in contact 
staat met een zekere temperatuur en de tijd. Op moment t= 0 heeft het blok nog zijn eigen 
temperatuur en na verloop van tijd zal steeds meer de temperatuur van de omgeving wor- 
den aangenomen. De functie y hangt dus af van twee grootheden, namelijk x en t. 


y= y(t) 


De karakteristieke differentiaalvergelijking die bij het geschetste probleem hoort luidt: 


d? y dy 
TR ka (x > 0,t > 0) 


a 
El end 


Onder de gegeven voorwaarden dat 


y(Ot) = Yo de temperatuur op het randoppervlak blijft de omgevings- 
temperatuur yo 


en 

y(x,0) = O op momentt = O heeft het gehele materiaal de referentie- 
temperatuur O (N.B. yo is kennelijk het temperatuursver- 
schil). 


luidt de oplossing van dit probleem 


YX = Yo (1 — erf((2vkt)) 


Voorbeeld: 


Xt ERRORFUNCTIE # 


X=? 1 
ERF( 1 ) = .842701 


Programma: 


19 
20 
30 
40 
52 
69 
70 
89 
97 


» tk ERRORFUNCTIE **x 
’ xx invoer van x ** 
GOSUB 95 

* «x berekenen * 
GOSUB 159 

» XX uitvoer *x* 

GOSUB 285 

END 

» xx invoer %*% 


190 CLS:LOCATE 4,5 

119 PRINT" *%*« ERRORFUNCTIE Xxxx” 
120 LOCATE @,4 

139 INPUT"X =";X 

149 RETURN 

159 ’ * berekenen ** 

169 P=.3275911# 

175 Al=.254829592# 


189 A2=-. 284496736# 
195 A3=1. 4214137418 
297 A4=-1. 4531525278 
219 A5=1.961405429# 


229 IF X<@ THEN X=-X:NEG=1 

239 T=1/(1+PXX) 

249 H=TX(A1+TX(A2+TX(A3+TK(A4+TKAS) ))) 
250 ERF=1-HXEXP( XxX) 

269 IF NEG=1 THEN X=-X:ERF=-ERF 

273 RETURN 
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289 * *% uitvoer *%* 

290 PRINT 

330 PRINT"ERF("X") ="CSNG(ERF) 
319 PRINT 

320 RETURN 


1.10 DE FOURIERTRANSFORMATIE EN HET SCHATTEN VAN SPECTRA 


De Fouriertransformatie behoort stellig tot de meest gehanteerde ingenieursgereedschap- 
pen die we kennen. Bij een onderzoek naar het meest gerefereerde artikel in de technische 
wetenschappen, kwamen de klassieke artikelen over deze transformatie als duidelijke win- 
naar uit de bus. 

Deze transformatie stelt ons in staat om problemen uit de …tijd-wereld"' te vertalen in proble- 
men uit de „frequentie-wereld” 

Bepaalde veel voorkomende bewerkingen kunnen in de frequentie-wereld veel gemakkelij- 
ker uitvallen dan in de tijd-wereld. Men kan hier denken aan het uitvoeren van de zoge- 
naamde convolutie-integraal die in de frequentie-wereld neerkomt op een 
vermenigvuldiging. 


Een van de gebieden waar de Fouriertransformatie bij uitstek van pas komt is het schatten 
van spectra. Het gaat hierbij om de vraag hoe gemiddeld genomen het vermogen van een 
signaal binnen een bepaalde frequentieband is. 


We raden aan om bij het werken met de computer deze signalen eerst te normeren zodat 
het gemiddelde O en de variantie 1 wordt. Men kan hierbij gebruik maken van de onder 
2.2 genoemde programma's. Hierna kent de bepaling van het spectrum doorgaans de vol- 
gende stappen. 


1. bepaal over een aantal (macht van 2) punten de FFT (Fast Fouriertranstormatie). 
De zo verkregen grootheid X(w) is een complexe grootheid. Vermenigvuldiging met zijn 
complex geconjugeerde levert een ruwe schatting van het spectrum. 


Xx 


Bedenk dat bij de berekening met de computer gebruik wordt gemaakt van twee arrays. 
Deze arrays stellen respectievelijk het reële en het imaginaire deel voor 


2. Willen we een betere schatting dan wordt de volgende procedure toegepast. 


-_Transformeer het ruwe spectrum met behulp van de FFT terug: de zo verkregen 
functie komt met een schatting van de autocorrelatiefunctie overeen. 

-_Deze functie wordt vermenigvuldigd met een functie, het zogenaamde venster. Een 
aan te bevelen venster is het venster van Papoulis. 

- De zo verkregen gemodificeerde functie wordt teruggetransformeerd en levert zo de 
uiteindelijke schatting van het spectrum. 
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Voorbeeld: 


xk FOURIERTRANSFORMATIE sk 


Aantal punten waarover getransfor- 
meerd wordt (macht van 2)? 6 
Functiewaarden : 


„781831 
„874928 
„433884 
—. 433584 
—.974928 
—. 781831 
8. 20584E-19 


DID U UN 


de Fouriertransformatie 


Re: Im: 
1 9. 00000 @. 00000 
2 1.36930 3. 30578 
3 -g.62698 -g. 62698 
4 -9. 59153 -@.29774 
5 -0. 48157 @.00000 
6 -0. 50153 @.20774 
rd -g. 62698 @.62698 
8 1. 36930 -3. 30578 


Verder gaan? (J/N) 


het ruwe spectrum 


Re: Im: 
1 @. 90000 @. 20200 
2 12.89315 @. 00000 
3 @. 78621 ©. 92000 
4 @.29469 2. 90000 
5 @.23191 9. 00300 
6 ®.29469 2. 00000 
7 @.78621 @. 00200 
8 12.80315 @. 20000 


Verder gaan? (J/N) 


de autocorrelatiefunctie 


Re: Im 
1 28. 90000 @. 20000 
2 17.45771 -0. 9900 
3 —1. 34950 @. 00000 
4 -—17.92154 @. 90000 
5 -24,39134 3. 09000 
6 -17.92154 3. 0000 
7 =1. 34950 -@. 90000 
B 17.45771 -0. 90000 


Verder gaan? (J/N) 


de autocorr fu na Papouliscorr. 


Re: Im: 
1 28. 90000 ©. 92000 
2 6.85558 -0. 90000 
3 -9.09329 3. 00000 
4 @.00000 @. 00000 
5 @. 00000 @. 99000 
6 @. 90000 @. 00000 
7 20329 -@. 90000 
8 „865558 -0. 90000 


Verder gaan? (J/N) 


uiteindelijke spectrale schatting 


Inns 
_ 
ES 


41. 79458 
37.69525 
28. 00657 
18. 39475 
„28227 
18. 30475 
28, 20657 
37.69525 


Verder gaan? (J/N) 


Programma: (gebaseerd op een FORTRAN-programma van Cooley e.a; Trans. on educ 
1969) 


19 
20 
30 
40 
50 
69 
70 
89 
90 


190 
119 


> kk FOURIERTRANSFORMATIE xx 
’ * begin programma *% 
*x te transformeren functie *% 
DEF FN F(T)=SIN(2XPIX(T-1)/(NP-1)) 
WIDTH 37:CLS:LOCATE 2,9 
PRINT" *#%& FOURIERTRANSFORMATIE *xxx” 
LOCATE 9,3 

’ ‚« INVOER AANTAL PUNTEN *%* 
PRINT:PRINT" Aantal punten waarover getransfor- 
meerd wordt (macht van 2)"; 

INPUT NP 

P=INT(LOG(NP)/LOG(2)+. 5) 


‚ 


123 DIM X(NP,2),WI(NP) 

139 PI=3.141592654# 

149 ’ * bepalen fu. in tijddomein * 

159 PRINT"Functiewaarden :":PRINT 

169 FOR T=1 TO NP 

178 X(T,1)=FN F(T) 

189 X(T,2)=0 

193 PRINT T,CSNG(X(T,1)) 

200 NEXT T 

210 IF P>4 THEN PRINT:PRINT"Even geduld aub":PRIN 


T 


229 ’ *x heentransformatie ** 
233 TEKEN=1:GOSUB 449’ FFT 

249 A$=" de Fouriertransformatie" 
25% GOSUB 899’ uitvoer 

269 ’ X* ruwe spectrum X%* 

279 GOSUB 1119 

289 A$="het ruwe spectrum” 

299 GOSUB 897 

397 ’ X* terugtransformatie ** 
319 TEKEN=-1:GOSUB 449’ FFT 

320 A$="de autocorrelatiefunctie" 
339 GOSUB 899 

349 ’ ** Papouliscorrectie *%* 

359 GOSUB 1939’ venster maken 

365 GOSUB 1179’ correctie 

379 A$="de autocorr fu na Papouliscorr. * 
389 GOSUB 897 

399 * *X spectrale schatting 


407 TEKE) 


=1:GOSUB 449’ FFT 


415 A$="uiteindelijke spectrale schatting” 
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GOSUB 899 
END 

’ kk FFT xx 
N=NP 
NV2=N/2 
NM1=N-1 

J=1 


FOR I=1 TO NM1 

IF I>=J THEN 530 
SWAP X(J,1),X(I,1) 
SWAP X(J,2),X(I,2) 
K=NV2 

IF NOT K<J THEN 599 
FOR KK=-1 TO G 
J=J-K:K=K/2 

KK=K<J 

NEXT 

J=J+K 

NEXT I 

FOR L=1 TO P 

LE=2°L 

L1=LE/2 

Vl=1 

Vv2=0 
W1=COS(TEKENXPI/L1) 
W2=SIN(TEKEN*PI/L1) 
FOR J=1 TO L1 

FOR I=J TO N STEP LE 
IP=I+L1 

T1=X(IP, 1)*V1-X(IP, 2)*V2 
T2=X(IP, 1)*V2+X( IP, 2)*V1 
X(IP, 1)=X(I, 1) -T1 
X(IP,2)=X(I, 2) -T2 
X(I, 1)=X(I, 1)+T1 
X(I, 2)=X(I,2)+T2 
NEXT I 

Q=V1 

V1=V1*W1-V2*N2 
V2=QKW2+V2N1 

NEXT J 

NEXT L 

RETURN 

> XX uitvoer *% 
PRINT 

PRINT:PRINT A$:PRINT 
PRINTTAB(6) “Re: “"TAB( 22)" Im 


:":PRINT 


930 
940 
HER 
955 
960 
970 
980 
997 
1990 
1919 
1929 
1939 
1949 
1950 
1969 
R) 
1970 
1980 
1995 
1199 
1119 
1129 
1139 
1149 
1159 
1169 
1179 
1185 
1199 
1205 
1219 


FOR K=1 TO NP 
PRINT K:LOCATE 4,CSRLIN-1:PRINT USING "###. ## 
;X(K, 1) 
LOCATE 20, CSRLIN-1 
PRINT USING "###. BERRR"; X(K, 2) 
NEXT K 
PRINT:PRINTTAB(8) "Verder gaan? (J/N) “; 
B$=INKEY$: IF B$=""THEN 999 

PRINT B$ 

IF B$="N" OR B$="n" THEN END 

RETURN 

’ XX papoulisvenster ** 

NENP%, 4:M=N-1: FA=PI/M 

FOR I=2 TO N 

T=I-1:AR=FAXT:WI(I)=SIN(AR) /PI+(1-T/M)*COS(A 


WI(NP+2-I)=WI(I) 

NEXT I 

WI(1)=1 

RETURN 

’ Xx ruwe spectrum *%* 
FOR I=1 TO NP 

X(I, 1)=X(I, 1) "2+X(I,2) "2 
X(I, 2)=0 

NEXT I 

RETURN 

* XX papouliscorrectie *% 
FOR I=1 TO NP 

X(I, 1)=WI(IJXX(I, 1) 

NEXT I 

RETURN 


1.11 VEKTORBEWERKINGEN 


De volgende twee programma's vinden hun oorsprong in de vektoranalyse. 

Beide programma's maken gebruik van de definitie van het inwendig produkt (kortweg: in- 
produkt) van twee vektoren 

Zijn a en b twee vektoren, met gelijk aantal elementen (zeg N). dan wordt het inprodukt van 


deze vi 


ektoren, genoteerd als (a,b), gedefinieerd als: 


N 
(ab)= E ab, 
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1.11.1 LENGTE VAN EEN VEKTOR 


De lengte van een vektor a, genoteerd als |al, wordt als volgt gedefinieerd 


Het onderstaande programma bepaalt de lengte van een vektor met behulp van boven- 
staande definitie. 


Voorbeeld: 


kx LENGTE VAN EEN VEKTOR tx 


Aantal elementen? 4 


VL1)=? 2 
VL 2} =? 3 
vL3}=? 3 
VL 4} =? 2 


De lengte van de vektor 


bedraagt 5.09902 


Programma: 


19 * XX LENGTE VAN EEN VEKTOR **x 

29 CLS:LOCATE 9,3 

30 PRINT"*%& LENGTE VAN EEN VEKTOR %*xx” 
49 LOCATE 9,4 

50 ’ * invoer ** 

63 GOSUB 129 

73 ’ XX berekening *4 

89 GOSUB 229 

97 ’ XX uitvoer XX 

199 GOSUB 290 


119 END 

128 ’ ** INVOER VAN VEKTOR ** 
139 PRINT 

149 INPUT"Aantal elementen";AE 
153 PRINT 


165 DIM V(AE) 

170 FOR I=1 TO AE 
189 PRINT “V["I"] ="5 
199 INPUT V(I) 
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200 
219 
220 
230 
240 
259 
269 
275 
280 
290 
300 
310 
320 
330 
340 
350 


NEXT I 

RETURN 

’ xx berekening *%* 

LL=9 

FOR I=1 TO AE 
LL=LL+V(I)*V(I) 

NEXT I 

L=SQR(LL) 

RETURN 

’ *X uitvoer van lengte ** 
PRINT 

PRINT"De lengte van de vektor" 
PRINT 

PRINT "bedraagt" ; CSNG(L) 
PRINT 

RETURN 


1.11.2 HOEK TUSSEN TWEE VEKTOREN 


Voor de hoek & tussen de vektoren a en b geldt. 


De hoek é ligt tussen de O en 180 graden. Houdt er rekening mee dat de hoek tussen de 
nulvektor (een vektor met alleen de elementen 0) en een willekeurige andere vektor onbe- 
paald is, 


Voorbeeld: 


“kkk HOEK TUSSEN 2 VEKTOREN *xx 


Aantal elementen :? 3 


Vector 1: 
Vil 1) =? 
Vil 2} =? 
Vi 3 ) =? 


ed 


Vector 2: 

Val 1] =? -5 
vel 2} =? 1 
Val 3 }J =? 1 
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“xx hoek tussen 2 vektoren *4* 


Vektor 
1 


1 

2 
Vektor 2 : 

1 


=5 pb 


Lengte van vektor 1 = 3.74166 
Lengte van vektor 2 = 5.19615 
Inprodukt =@ 

Hoek tussen de vektoren = 99 graden 


Programma. 


19 * %% HOEK TUSSEN 2 VEKTOREN **x* 
29 CLS:LOCATE 4,9 

35 PRINT" *%# HOEK TUSSEN 2 VEKTOREN xx” 
49 LOCATE 0,3 

59 ’ * invoer *%* 

63 GOSUB 129 

7D ’ XX berekening *% 

83 GOSUB 299 

9Z ’ XX uitvoer *% 

109 GOSUB 450 

119 END 

129 ’ * invoer van vektoren *% 
139 PRINT 

145 INPUT"Aantal elementen :“;AE 
159 PRINT 

169 DIM V1(AE), V2(AE) 

179 PRINT"Vector 1:" 

189 FOR I=1 TO AE 

199 PRINT"V1IC"I") ="; 

230 INPUT V1(I) 

210 NEXT I 

229 PRINT 

239 PRINT"Vector 2:" 

247 FOR I=1 TO AE 

259 PRINT“V2("I"] ="; 

269 INPUT V2(I) 

270 NEXT I 

285 RETURN 
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295 
305 
319 
320 
330 
340 
350 
360 
370 
380 
397 
400 
410 
420 
430 
440 
450 
469 
479 
489 
497 
57 
I 

510 
520 
537 
I 

54g 
550 
560 
570 
580 
590 


620 
619 


’ *k berekening ** 

PI=3. 141592654# 

L12=0:L22=0: IPROD=G 

FOR I=1 TO AE 

L12=L12+V1(I)*V1I(I) 
L22=L22+V2(I)*V2(I) 
IPROD=IPROD+V1(I)*V2(I) 

NEXT I 

L1=SQR(L12) 

L2=SQR(L22) 

IF Li=0 OR L2=0 THEN S=1:GOTO 449 
IF IPROD=@ THEN H=9G:GOTO 449 
CX=IPROD/ (L1*L2) 

IF ABS(CX)>.99999 THEN H=0:GOTO 449 
H=99-180XATN(CX/SQR(1-CXXCX) ) /PI 
RETURN 

* xk uitvoer *%* 

CLS:LOCATE 4,9 


PRINT" *%*x hoek tussen 2 vektoren %***” 


LOCATE @, 4 
PRINT"Vektor 1 :" 


FOR I=1 TO AE: PRINT USING "####";V1(I);:NEXT 


PRINT: PRINT 
PRINT"Vektor 2 


FOR I=1 TO AE: PRINT USING "####";V2(I); : NEXT 


PRINT: PRINT 


PRINT"Lengte van vektor 1 =";CSNG(L1) 
PRINT"Lengte van vektor 2 ;CSNG(L2) 
PRINT“ Inprodukt ; CSNG( IPROD ) 


PRINT"Hoek tussen de vektoren "; 


IF S=1 THEN PRINT"is onbepaald"ELSE PRINT"="C 
SNG(H) “graden” 


PRINT 
RETURN 
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1.12 NULPUNTSBEPALING 


Dit programma bepaalt het nulpunt van een in de listing in regel 70 gegeven functie, en 
wel met behulp van de combinatie van twee methoden: de koorden van Newton methode 
en de bisectiemethode. 

Achtereenvolgens voert u in: 


de grenzen (linker- en rechtergrens) waartussen het nulpunt moet liggen, 
de gewenste nauwkeurigheid. 


Voorbeeld: 


Bepaal het nulpunt van de functie f(x)= x? + sin(x). liggend tussen -0.1 en -1 


“ok NULPUNT BEPALEN %*4 


De gebruikte functie is te ver- 
anderen door regel 79 te wijzigen. 


Default functie : 
FC) =X"2+SIN(X) 


linkergrens ? -1 
rechtergrens ? -0.1 
tolerantie ? @.0001 


Het nulpunt is : — 87667 


Programma: 


19 ” Xx NULPUNT BEPALEN %*** 

20 CLEAR:KEY OFF: CLS 

35 PRINTSPC(6)"**** NULPUNT BEPALEN *** 
43 LOCATE 5,4 

59 ’ functie invoer 

69 F$="X"2+SIN(X)" 

70 DEF FNF(X)=X"2+SIN(X) 

89 PRINT"De gebruikte functie is te ver- 
9% PRINT"anderen door regel 7% te wijzigen. 
199 PRINT:PRINT"Default functie 

115 PRINT:PRINTSPC(6)"f(x)="F$ 
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129 ’ invoer van grenzen, tolerantie 

139 PRINT 

149 INPUT"linkergrens “;A 

159 INPUT"rechtergrens “;B 

165 INPUT"tolerantie “;EPS 

175 EPS=ABS(EPS) 

189 ’ berekening 

199 FA=FNF(A):FB=FNF(B) 

209 C=A:FC=FA 

219 IF ABS(FC)>=ABS(FB) THEN 239 

220 A=B:B=C:CzA:FA=FB: FB=FC: FC=FA 

230 M=(B+C)/2 

249 IF ABS(M-B)<=EPS THEN 349 

250 P=(B-A)XFB 

269 IF P>=0 THEN Q=FA-FB ELSE Q=FB-FA:P=-P 
270 A=B:FA=FB 

280 IF P<=ABS(Q)XEPS THEN 320 

299 IF P<(M-B)*Q THEN B=B+P/Q ELSE B=M 

307 FB=FNF(B) 

319 IF (FB>O)=(FC>@) THEN 209 ELSE 219 

329 IF C<B THEN B=B-EPS ELSE B=B+EPS 

338 GOTO 300 

343 ’ uitvoer nulpunt 

35% PRINT 

369 ZERO=((FB>@)=(FC<O) ) 

375 IF ZERO THEN PRINT"Het nulpunt is : “CSNG(C): 
GOTO 397 

38% PRINT"Er is geen nulpunt in dit interval 
397 PRINT 

405 END 


Opmerkingen: 


1. 


Als in het opgegeven interval meer nulpunten aanwezig zijn, vindt het programma 
slechts één nulpunt! Eventueel kunt u andere grenzen invoeren om hieromtrent meer 
informatie te verkrijgen 


Als u de zogenaamde tolerantie (gewenste nauwkeurigheid) te klein kiest, kan het pro- 
gramma in een „oneindige lus” terechtkomen … Kies de tolerantie niet kleiner dan 1E-7 


2 STATISTISCHE PROGRAMMA'S 


2.1 KANSVERDELINGEN 


De nu volgende programma's hebben betrekking op kansverdelingen en wel op 


de binomiaalverdeling 
de Poissonverdeling 
de standaardnormaalverdeling 


Deze verdelingen beschrijven bepaalde geïdealiseerde processen. 


2.1.1 BINOMIAALVERDELING 


Bij de binomiaalverdeling denken we aan experimenten waarbij sprake is van een reeks ge- 
beurtenissen. Laten we, om de gedachte te bepalen, denken aan een dobbelsteen die we 
tien keer opgooien. Zo'n experiment toont dan tien maal een aantal „ogen. Als we nu bij- 
voorbeeld de kans willen bezien dat er in zo'n reeks van tien worpen driemaal een „6 op- 
treedt, dan hebben we te maken met een binomiaalverdeling. 
Kenmerkend voor die verdeling is namelijk dat de gebeurtenis (in dit geval het gooien van 
een 6) een constante kans heeft om op te treden (p= 1/6) 
Volgens de binomiaalverdeling geldt dat de kans, dat in een reeks van 10 (n= 10) driemaal 
(X=3) een „6 met kans p= 1/6 optreedt, overeen komt met. 


Pek) = (PS — pk 
ingevuld. 
Pix = 3) = (DH Gr 


Op de MSX rekenen we dit als volgt uit 


“ak BINOMIALE VERDELING *xx 


nk n-k 
P(x=k)=(k)p (1-p) 


Aantal herhalingen 

van het experiment 2 19 
Kans op succes ? 166667 
Aantal gewenste successen ? 3 


De kans op 3 successen is: „155046 


Programma. 


19 
20 
30 
49 
57 
65 
73 
85 
95 


* xk BINOMIALE VERDELING %*%* 

* xx invoer *% 

GOSUB 90 

’ * berekenen van resultaat *% 
GOSUB 229 

REM *k uitvoer van resultaat *% 
GOSUB 369 

END 

* Xx invoer v/d getallen ** 


199 CLS:LOCATE 4,1 

119 PRINT"**x& BINOMIALE VERDELING %**x” 
129 LOCATE 9,4 

139 PRINTTAB(15)"n k n-k" 

143 PRINTTAB(7)"P(x=k)=(k)p (1-p)" 

159 PRINT:PRINT 


169 PRINT" Aantal herhalingen” 

173 INPUT"van het experiment iN 
189 INPUT"Kans op succes ed 4 
199 INPUT"Aantal gewenste successen “;K 
290 A=K 

219 RETURN 


229 ’ XX berekening * 

239 ’ * berekening van N over K * 
245 H=l 

250 Kl=K 

265 IF K>(N-K) THEN K=N-K 

270 FOR I=N TO N-K+1 STEP —1 
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289 H=H*I 

290 NEXT I 

305 FOR I=1 TO K 

318 H=H/I 

320 NEXT I 

339 ’ * Berekenen van eigenlijke kans * 
345 KANS=HX(P"KIJX((1-P)°(N-KI)) 

357 RETURN 

369 ’ *k uitvoer van resultaat ** 

375 PRINT 

389 PRINT"De kans op’ 
399 PRINT 

490 RETURN 


‘successen is: "CSNG(KANS) 


2.1.2 POISSONVERDELING 


De Poissonverdeling staat ook wel bekend als de „verdeling van zeldzame gebeurtenis- 
sen’. Om dat in te zien geven we eerst een wat ongewoon voorbeeld, Stel dat we in een 
stad van ongeveer 100.000 inwoners zomaar een woning binnenvallen met de vraag, 
„Mevrouw bent u in verwachting?'’, dan zal die vraag gewoonlijk met „Nee'' beantwoord 
worden (de deur zal meestal dichtgegooid worden, maar laten we ervan uitgaan dat u 
schattige babykleertjes bij u hebt…). 

Goed dan, de kans (p) dat bij een willekeurig huisgezin de ooievaar op bezoek komt is uiter- 
aard zeer gering, maar aan de andere kant is het aantal huisgezinnen (n) in die stad zo groot 
dat het gemiddelde (np) toch leidt tot een discreet aantal (k=0, 1, 2, …) geboorten per dag. 
Ziezo... het begrip „verdeling van zeldzame gebeurtenissen” zal nu wel duidelijker zijn ge- 
worden. 

De Poissonverdeling komen we trouwens in allerlei situaties tegen. We noemen enkele klas- 
sieke voorbeelden. 


de kans dat binnen vijf minuten de telefoon gaat 
de kans dat er in het komende uur in een bepaalde stad 3 ongelukken gebeuren. 


De formule die dit alles beschrijft luidt. 


wer 


Pi == Ee 


waarbij k het beoogde aantal „optredens’ (k=0. 1, 2, …) voorstelt en u het gemiddeld aan- 
tal beoogde gebeurtenissen. 


Voorbeeld: 


In een stad van 100.000 inwoners worden iedere avond gemiddeld 5 baby's (u = 5) gebo- 
ren. Wat is nu de kans dat er deze nacht precies 3 baby's geboren worden? 


kkk POISSON VERDELING #4*x* 
k u 
u 
P(xzk)= 


Gewenst aantal successen 23 
Gemiddeld aantal successen (zu) ? 5 


De kans op 3 successen is . 149374 


Programma: 

19 * %kx POISSONVERDELING *** 

29 ’ XX invoer *X 

39 GOSUB 90 

49 * XX berekenen van de kans *x 
5% GOSUB 219 

69 ’ XX uitvoer *x* 

7@ GOSUB 270 

52 END 

IW * XX invoer Xx 

189 CLS:LOCATE 5,1 

119 PRINT" *%& POISSON VERDELING *%*x” 
129 PRINT 

139 PRINTTAB(18)"k —u” 

149 PRINTTAB(17) "u e” 


159 PRINTTAB(9) "P(x=k)=_——" 

169 PRINTTAB(18)"k!" 

179 LOCATE @,8 

189 INPUT"Gewenst aantal successen "Kk 
199 INPUT"Gemiddeld aantal successen (=u) “;MU 
203 RETURN 

219 ’ XX berekenen van de kans Xx 

220 H=EXP(-MU)*MU°K 

239 FOR I=1 TO K 

240 H=H/I 

253 NEXT I 

26% RETURN 
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275 * * uitvoer ** 

289 PRINT 

295 PRINT"De kans op"K"successen is"CSNG(H) 
300 PRINT 

315 RETURN 


2.1.3 DE STANDAARDNORMAALVERDELING 


De standaardnormaalverdeling is stellig een van de meest toegepaste verdelingen in de sta- 
tistiek. De reden hiervan is „de wet van de grote getallen, die populair gezegd inhoudt 
dat als de waarde van een zekere grootheid (lengte van een Nederlander, gewicht van een 
paardebloem) van zeer veel factoren afhangt, deze waarde normaal verdeeld is met gemid- 
delde u en standaarddeviatie a. 

Om nu bij dit soort normaalverdelingen uitspraken te kunnen doen, hanteren we de stan- 
daardnormaalverdeling. deze wordt wel symbolisch aangegeven met N(O,1). Dit houdt in 
dat het gemiddelde van deze verdeling precies 0 is en de standaarddeviatie komt met 1 
overeen. Hierna kunnen we onze te beschouwen grootheden normaliseren, 


X_— Xgemggela 


X oct, veerman 
oemodleerd —_ standaarddeviatie 


en de truc” is dan dat deze gemodificeerde waarden standaardnormaal verdeeld zijn 
Eerst wat wiskunde. De standaardnormaalverdeling voldoet aan de volgende vergelijking 


ólx) NS Je dt 


Hierbij geeft é(x) de kans dat een uitkomst <= x is. 


Voor de berekening op de MSX wordt hierbij gebruik gemaakt van: 


1 waa 
òx) — 1 — rr er) (ast + act? + ast? + astf + ast°) 


met t = 1/(1 + px) en verder 

p = 2316419 az = 1.781477937 
a, = 31938153 as = -1.821255978, 
a, = -.356563782 as = 1.330274427 
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Voorbeeld: (fictief) 


De Zweedse recruten zijn gemiddeld 180 cm lang (k = 180) met een standaarddeviatie van 
10 cm. 

Welk percentage zal gemiddeld zijn hoofd stoten bij een deurhoogte van 190 cm? 

De gemodificeerde waarde waar het hier om gaat is. 


deurhoogte — gemiddelde hoogte 
standaarddeviatie 


ingevuld 


Met behulp van het nu volgende programma vinden we dat de bijbehorende & waarde 
overeenkomt met 0.841 Dit houdt in dat 84% van de recruten onder de deur door kunnen 
lopen en tevens dat 100 - 84 = 16% hun hoofd zullen stoten. 


“kkk STANDAARD NORMAAL VERDELING %%** 


x=? 1 

Kansdichtheid : .24197972450334 

Kans op X 1 „B4134474061799 
Programma: 


19 ” *x* STANDAARD NORMAAL 


29 * VERDELING kkk 
39 ’ XX invoer *X 

49 GOSUB 190 

57 ’ XX berekening Xx 

63 GOSUB 169 

7D * XX uitvoer ** 

89 GOSUB 329 

9D END 

195 * *% invoer * 

119 CLS 


129 PRINT" **&x STANDAARD NORMAAL VERDELING ***x*” 
139 LOCATE g, 4 
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149 INPUT"x =";X 

159 RETURN 

169 ’ Xx berekening *% 

179 P=,2316419# 

189 „31938153# 

197 A2=-. 356563782# 

209 A3=1.781477937# 

215 A4=-1.821255978# 

229 A5=1.339274427# 

230 PI=3.141592654# 

240 H1=SQR(2XPI) 

250 H2=(EXP(-X*X/2))/H1 

269 IF X<@ THEN X=-X:N=1 

270 T=1/(1+P*XX) 

285 H=TX(A1+TX(A2+TX(A3+TX(A4+TKA5) ))) 
299 FI=1-H2*H 

303 IF N=1 THEN X=-X:FI=1-FI 
319 RETURN 

329 ’ %* uitvoer * 

330 PRINT 

340 PRINT"Kansdichtheid :"H2 
350 PRINT 

36% PRINT"Kans op X SRI 
375 PRINT 

383 RETURN 


2.2 HISTOGRAM 


In de vorige paragrafen werden z.g. ideaalmodellen voor kansverdelingen behandeld, In 
de praktijk kunnen uiteraard variaties optreden, sterker nog ze treden altijd op. 

Het hier beschreven programma heeft direct te maken met de praktijk van het verwerken 
van een serie meetgegevens. Het belangrijkste advies dat we bij het verwerken van een se- 
rie meetgegevens kunnen geven is: bepaal eerst een histogram van die gegevens! Het his- 
togram als benadering van de kansdichtheidsverdeling die het statistische proces van de 
waargenomen gegevens beheerst, is namelijk verreweg de belangrijkste functie die ers. 
We stellen dit met nadruk, omdat het nogal eens voorkomt dat men bij een serie waarnemin- 
gen onmiddellijk tot allerle: berekeningen overgaat. Van zo'n serie gegevens bepaalt men 
dan gewoonlijk dadelijk het gemiddelde en de standaarddeviatie. Bedenk echter dat groot- 
heden als gemiddelde en standaarddeviatie weinig zeggen als het histogram niet aan be- 
paalde eisen voldoet. Als we bijvoorbeeld met een histogram met twee toppen te maken 
hebben (denk maar eens aan de verdeling van leeftijden in een kraamvrouwenkliniek) dan 
zijn grootheden als gemiddelde en standaarddeviatie domweg misleidend. 

Voor een verdere verhandeling verwijzen we naar het boek „praktische statistiek met be- 
hulp van de pocketcalculator (uitgave SMD/Leiden). 
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Het nu volgende programma bepaalt van een serie waarnemingen een histogram, Dit vormt 
dan een directe schatting van de kansdichtheidsfunctie. Voer steeds de volgende procedu- 
re uit 


1, bepaal het aantal te gebruiken klassen. Gewoonlijk kiest men als bovengrens voor het 
aantal klassen m 


m < vn 
Waarin n het aantal waarnemingen voorstelt 


2. bepaal op grond van de de waargenomen gegevens zowel een ondergrens als een bo- 
vengrens. De ondergrens is gewoonlijk kleiner dan de kleinste waarde van een serie 
waarnemingen en evenzo is de bovengrens groter dan de grootste waarde. Van deze 
regel wijkt men alleen af als er duidelijke uitschieters in het waarnemingsmateriaal wor- 
den aangetroffen 


Voorbeeld: 


Bij een onderzoek aan een nieuw soort aardappels vindt men voor de gewichten van een 
aantal „piepers de volgende waarden (in grammen) 


30, 31, 29, 31, 33, 35, 32, 29, 37, 27 
Bepaal van deze gegevens het histogram. 


We kiezen als aantal klassen nu de waarde 4 
Als ondergrens kiezen we de waarde 26.5 en als bovengrens de waarde 37.5. 


Resultaat: 
xx HISTOGRAM wm 


Aantal ji, DN 
Aantal klassen $4 
ergrens rd 
ovengrens 23 


Waarneming 
derneming 
aarnemin, 
aarneming 
aarneming 

Waarneming 

Waarneming 


jaarneming 
Jaarneming 


OD IDS UN 


S 
0 
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kk HISTOGRAM sok 


6 

4 

aL 
LEL 


Oale ee NB velgrens = 37.5 


Programma: 

15 ’ Xxx HISTOGRAM **x 

29 * XX invoer XX 

39 GOSUB 87 

4 * *% uitvoer ** 

59 GOSUB 259 

69 INS=INKEY$:IF IN$="" THEN 69 
73 END 

89 ’ xx invoer *% 

9 CLS:LOCATE 5,7 


190 
119 
129 
130 
149 
159 
169 
179 
189 
199 
200 
215 
220 
230 
245 
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PRINT" **** HISTOGRAM *%xx” 
LOCATE @, 4 

INPUT" Aantal waarnemingen "; 
INPUT"Aantal klassen Sj 
INPUT “Ondergrens il 
INPUT "Bovengrens ik 
PRINT 

DIM C(AK+1) 

FOR K=1 TO N 
PRINT"Waarneming "K": "; 
INPUT X 
J=INT((X-A)/(B-A)*AK) +1 

IF J>=l AND J<=AK THEN C(J)=C(J)+1 
NEXT K 

RETURN 


250 ’ Xx uitvoer *% 

269 CLS:KEY OFF:LOCATE 5,9 
277 PRINT" *&*« HISTOGRAM #*kx” 
289 LU$=CHR$(30) +STRINGS(2, 29) 
290 BLOK$=STRINGS$(2, 219) 

300 FOR K=2 TO 18 STEP 2 

319 LOCATE 1,29-K 

329 PRINT USING "##";K; 

330 NEXT K 

349 FOR K=1 TO AK 

357 LOCATE K*3, 24 

369 PRINT USING " ##';K; 

375 IF C(K)=D THEN 410 

389 FOR J=1 TO C(K) 

390 PRINT LU$;BLOKS; 

490 NEXT J 

419 NEXT K 

429 LOCATE 9,22 

430 PRINT"Aantal waarnemingen ="N 
449 PRINT"Ondergrens ="A; 

459 PRINT“Bovengrens ="B; 

462 RETURN 


2.3 GEMIDDELDE EN STANDAARDDEVIATIE 


Als het histogram er „redelijk symmetrisch’ uitziet, is het typeren van de gevonden verde- 
ling aan de hand van een gemiddelde waarde en een standaarddeviatie zinvol 

Bedenk dat de gemiddelde waarde iets zegt over de ligging van de top. Per definitie is deze 
top gelijk aan de modus. Als we te maken hebben met een scheve verdeling dan zal de 
gemiddelde waarde uiteraard niet met deze top (modus) samenvallen. 

De standaarddeviatie zegt iets over de mate waarin de gevonden waarden variëren en wel 
ten opzichte van de gemiddelde waarde. Een van de aardigheden van de gekozen formule 
ter bepaling van de standaarddeviatie is dat deze als schatting precies overeenkomt met 
de gelijkluidende parameter (wortel van de variantie) van de normaalverdeling. 

Bedenk dat de formule van de normaalverdeling in feite door maar twee variabelen wordt 
bepaald, n.l. het gemiddelde en de standaarddeviatie. Dit houdt in, dat als we met een nor- 
maal verdeelde populatie te maken hebben, deze twee parameters de volledige verdeling 
beschrijven 


De gebruikte formules zijn. 


1 
gemiddelde = rd 


1 
standaarddeviatie? = (Ex? — „E 
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Voorbeeld: 

Een computerwinkel verkoopt op 5 achtereenvolgende dagen 4, 6, 5, 7 en 11 MSX- 
computers. Bepaal het gemiddelde aan computers en tevens de bijbehorende standaard- 
deviatie. 


** GEMIDDELDE EN STANDAARDDEVIATIE ** 


Aantal waarnemingen ? 5 


Waarneming 1 :? 4 
Waarneming 2 :? 6 
Waarneming 3 :? 5 
Waarneming 4 :2 7 
Waarneming 5 :? 11 
Gemiddelde = 6.6 
Standaarddeviatie = 2.79185 

Programma: 

19 ’ *%& gemiddelde en 

29 ’ standaarddeviatie %** 

37 ’ XX invoer *% 

49 CLS 


57 PRINT"*& GEMIDDELDE EN STANDAARDDEVIATIE *x" 
69 LOCATE 9,4 

7@ INPUT" Aantal waarnemingen “;N 

89 PRINT 

93 FOR K=1l TO N 

199 PRINT“Waarneming "K" :"; 
119 INPUT X 

129 S=S+X 

139 SKW=SKW+X*X 

149 NEXT K 

159 ’ X* berekening *%* 

169 M=5/N 

179 SD=(SKW-SXS/N) /(N-1) 

189 SD=SQR( SD) 

199 * * uitvoer *%* 

205 PRINT 

219 PRINT"Gemiddelde 

229 PRINT"Standaarddeviatie 
239 PRINT 

243 END 


“CSNG(M) 
“CSNG(SD) 


LLL 
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2.4 COVARIANTIE EN CORRELATIE-COEFFICIENT 


Met dit programma berekent men de covariantie en de correlatie-coêfficiënt. De functie voor 
de covariantie luidt: 


1 
n-1 


1 
Sy = Exy — SEXE) 


Letterlijk geeft deze grootheid aan hoe de grootheden x en y „tesamen”' variëren. Om een 
en ander meer tastbaar te maken kunnen we denken aan een onderzoek naar het verband 
tussen lichaamsgewicht en lengte. We hebben hier te maken met een experiment waarbij 
iedere proefpersoon leidt tot twee waarnemingen, nl. een lengte (x) en een gewicht (y). 
Kenmerkend voor dit soort studies is dat de vraag gesteld kan worden of er wel een ver- 
band bestaat tussen x en y. Voor ons voorbeeld: is het zo dat toenemende lengte samen- 
hangt met een toenemend gewicht? 

Bovengenoemde formule is het uitgangspunt voor de berekening van de correlatiecoëtfi- 
ciënt r‚ Hiertoe delen we de uitkomst door het produkt van de wortels uit de varianties van 
x en y. De zo gevonden grootheid noemen we de correlatie-coëfficiënt r: 


sd 
CI 
Ex? — (Ex)? 
mets, = O 
Ey? — (Ey)?In 
en =DE 


n _= aantal getallenparen 
(x.y) = verschillende getallenparen 


Als we de waarnemingen x en y in het platte vlak uitzetten dan wordt de vraag „is er ver- 
band tussen x en y'' gereduceerd tot de vraag is het op het oog doenlijk om door de gege- 
ven punten een rechte lijn te trekken” 

Welnu, als alle punten precies op een rechte lijn liggen (er is dus een maximaal verband) 
dan zal de absolute waarde van r exact 1 zijn. Alle afwijkingen hiervan leiden tot een kleinere 
waarde. Dit houdt in, dat naarmate r dichter bij 1 ligt. er sprake is van een groter verband. 
Zoals altijd schuilen er weer een aantal kleine addertjes onder het gras. Ten eerste moet 
het aantal punten voldoende groot zijn en ten tweede mag er geen sprake zijn van een aan- 
tal „puntenwolken” in de figuur. 
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Voorbeeld: 


Bij een onderzoek naar een nieuwe bloembol vindt men voor gewicht en volume de volgen- 
de waarden 


(2,3). (4.7) en (6,10) 


Is er verband tussen deze grootheden? 


rx COVARIANTIE EN COR- *kat 
xk RELATIE COEFFICIENT #xex 


Aantal getalparen 7 3 


Getalpaar 1 
Getalpaar 2 :? 4,7 
Getalpaar 3 :7 6,10 


Covariantie 1 
Correlatie coëfficiënt : 996616 


Opmerking: 
In de praktijk gebruikt men altijd meer waarnemingen om een mogelijk verband na te gaan. 


We raden aan om met tenminste 30 waarnemingen te werken. Om na te gaan of de gevon- 
den waarde niet van het toeval afhangt kan men de volgende grootheid gebruiken: 


te 


Indien n>30 is t bij benadering standaardnormaal verdeeld en wel onder de vooronderstel- 
ling dat tussen x en y geen verband bestaat! Indien dat verband er wel is zal t een significant 
afwijkende waarde aannemen. Voor een betrouwbaarheid van 5% ligt de grenswaarde 
voor t bij 1.65. 


Programma: 


18 * *xk COVARIANTIE EN 


20 CORRELATIE COEFFICIENT **x 
37 * * invoer *x* 
49 GOSUB 199 


57 * X* berekenen *%* 
63 GOSUB 239 

TO * XX uitvoer *%* 
83 GOSUB 427 
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5 END 


195 
115 
129 
139 
140 
159 
169 
179 
189 
199 
207 
215 
220 
230 
240 
250 
269 
279 
280 
297 
300 
319 
320 
330 
340 
352 
360 
375 
389 
390 
400 
410 
420 
430 
445 
455 
469 
479 


*x invoer v/d getalparen *%* 
CLS:LOCATE 3,9 

PRINT "***x COVARIANTIE EN COR- #*xx” 
PRINT" kkk RELATIE COEFFICIENT *xx” 
LOCATE @, 4 

INPUT"Aantal getalparen “;N 

DIM A(N), B(N) 

PRINT 

FOR I=1 TO _N 

PRINT"Getalpaar"I" :"; 

INPUT A(I),B(I) 

NEXT I 

RETURN 

> berekenen ** 

xk bepalen covariantie ** 

FOR I=1 TO N 

AI=A(I) 

BI=B(I) 

S1=S1+AI 

S2=S2+BI 

S3=S3+AIXBI 

S4=S4+AIXAI 

S5=S5+BIXBI 

NEXT I 

COV=(S3-S1XS2/N)/(N-1) 

’ *X bepalen corr. coëfficiënt ** 
SX=(S4-S1XS1/N)/(N-1) 
SX=SQR(ABS(SX) ) 
SY=(S5-S2%XS2/N)/(N-1) 
SY=SQR(ABS(SY) ) 

CRR=COV/SX/SY 

RETURN 

* XK uitvoer *% 

PRINT 

PRINT "Covariantie z “COV 
PRINT"Correlatie coëfficiënt :"CSNG(CRR) 
PRINT 

RETURN 


’ 
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2.5 CURVE FITTING 


Curve fitting is de Engelse uitdrukking voor het zoeken naar een curve die optimaal bij een 
gegeven reeks (x,y)-paren past. Het aardige van dit programma is dat het de gebruiker de 
mogelijkheid biedt om aan te geven welke curve hij door de gegeven punten wil „fitten'' 
Natuurlijk doet zich de vraag voor welke curve gekozen moet worden. Boerenverstand is 
zoals altijd hier de beste leidraad: als bijvoorbeeld alle punten op het oog op een rechte 
lijn liggen dan kiest men uiteraard de rechte lijn. Als u wilt weten hoe goed de gevonden 
curve is dan kunt u uiteraard de berekende curve naderhand op papier uittekenen 

De mogelijke curven zijn 


Z= Ao + AX + ay (1) 

y=at+b (2) 

Y= A +AX + ax? (3) 

y= Cc + dx® (4) 

y= at(a > 0) (5) 

y= ae?“ (a > 0) (6) 
Voorbeeld: 


Bij een experiment vindt men de volgende waarden: (4,5). (6.7) en (8.9). Pas het program- 
ma toe om na te gaan welke rechte lijn bij deze punten past 


“kk CURVE FITTING xxx 


De volgende curves zijn beschikbaar: 


Z=AO+A1*X+A2XY (1 
*X+B (2 
+A1*X+A2*X°2 (3 
(4 
(5 


XX“ A+DXX°B 

Y=A*X°B met A>O 
Y2A*EXP(B*X) met A>@ (6 
Welke curve wilt U benaderen? 2 
Aantal punten? 3 

U kunt nu de punten invoeren 
punt 1 : 


punt 2 
punt 3 : 


Y=AXX"B met A>Z (5) 
Y=A*EXP(B*X) met A>@ (6) 


Welke curve wilt U benaderen? 2 
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Aantal punten? 3 
U kunt nu de punten invoeren 


punt 1 : X,Y =? 4,5 
punt 2 : X,Y =? 6,7 
punt 3 : X,Y =? 6,9 


De punten benaderen curve 2 : 
Y=AxX+B 
het best als 


A= 1 
B= 1 


Programma: 


19 ’ %**x CURVE FITTING %** 

29 ’ XX invoer v/d curve ** 

37 GOSUB 119 

49 ’ XX invoer v/d punten ** 

55 ON CURVE GOSUB 389, 485, 480, 445, 485, 485 

69 ’ X% berekeningen ** 

78 ON CURVE GOSUB 719,93, 970, 1930, 1999, 1140 

BĲ ’ XX uitvoer ** 

9G GOSUB 1189 

195 END 

119 ’ *% invoer *%* 

129 CLS:LOCATE 4,9 

133 PRINT "***x CURVE FITTING %**x 

149 LOCATE 9,3 

155 DIM CUR$(6) 

169 CUR$(1)="Z=AD+AIKX+A2XY (1) 

175 CUR$(2)="Y=A*X+B (2) 

189 CUR$(3)="Y=AD+ALKX+A2XX" 2 (3) 

199 CUR$(4) =C&X"A+DXX"B (4) 
(5) 
(6) 


295 CUR$(5) zA*X"B met A>g 

215 CUR$(6)="Y=AXEXP(BXX) met A>g 

229 * * overzicht v/d curves * 

235 PRINT"De volgende curves zijn beschikbaar: ” 
249 PRINT 

257 FOR I=1 TO 6:PRINTCURS(I):NEXT I 

265 ’ *k invoer v/d curve * 

273 PRINT 

280 INPUT"Welke curve wilt U benaderen"; CURVE 
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295 
OTO 
300 
319 
320 
330 
340 
NT 

350 
369 
370 
389 
397 
400 
419 
429 
430 
440 
450 
460 
470 
480 
490 
500 
519 
529 
539 
54g 
550 
569 
570 
580 
599 
600 
619 
620 
635 
649 
659 
665 
675 
689 
697 
700 
719 
720 
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IF CURVE<1 OR CURVE>6 THEN LOCATEG, CRSLIN-1:G 
285 


’ XX invoer van aantal punten *x* 
PRINT 

INPUT“Aantal punten”;N 

DIM X(N), Y(N), Z(N) 

PRINT:PRINT"U kunt nu de punten invoeren”:PRI 
RETURN 

RETURN 

* xx invoer v/d punten *%* 

’ X invoer voor curve 1 * 

FOR I=1 TO N 

PRINT"punt"I": X,Y,Z ="; 

INPUT X(I),Y(I),Z(I) 

NEXT I 

RETURN 

’ _x invoer voor curve 4 * 

INPUT"A ="; AAL 

INPUT"B =";BB1 

PRINT 

’ * invoer voor curve 2,3,4,5,6 %* 
FOR I=1 TO N 

PRINT" punt" IT": X,Y ="5 

INPUT X(I),Y(I) 

NEXT I 

RETURN 

’ * rekenhulproutines %* 

AE Ri kJ 

FOR I=1 TO N:Z(I)=Y(I):NEXT I 
RETURN 

’ « Y:=X"bb1 %* 

FOR I=1 TO N:Y(I)=X(I)"BBI:NEXT I 
RETURN 

’« X:=X"aal X 

FOR I=1 TO N:X(I)=X(I)"AAI:NEXT I 


RETURN 

’ ok Z:=LOG(Y) * 

FOR I=1 TO N:Z(I)=LOG(Y(I)):NEXT I 
RETURN 

* ok X:=LOG(X) %* 

FOR I=1 TO N:X(I)=LOG(X(I)):NEXT I 
RETURN 

’ xk berekeningen ** 

’* curve 1 X 

FOR I=1 TO N 


730 
740 
750 
760 
770 
78% 
790 
800 
819 
820 
830 
840 
850 
860 
879 
882 
899 
E17) 
919 
920 
930 
949 
957 
967 
970 
987 
997 


SX=SX+X(I) 

SY=SY+Y(I) 

SZ=SZ+Z(I) 

S1=S1+X(I)XX(I) 
S2=52+Y(I)XY(I) 

53=53+X( I)XY(I) 
S4=S4+X( IJ XZ(I) 
S5=55+Y(I)XZ(I) 

NEXT I 

IF CURVE=4 THEN SX=0:SY=g: SZ=0 
XX=NXS1-SXXSX 

XZ=NXS4-SX%S5Z 

IF CURVE=2 OR CURVE>4 THEN A2=9:GOTO 900 
XY=NXS3-SXXSY 

YY=NXS2-SY*SY 

YZ=N*S5-SYXSZ 

A2Z=(XXKYZ-XYKXZ) /(XXKYY-XYKXY) 
Al=(XZ-A2*XY) /XX 
AD=(SZ-A2XSY-A1XSX) /N 

RETURN 

’ x curve 2 * 

GOSUB 55% 

GOSUB 719 

RETURN 

’ %* curve 3 * 

GOSUB 559 

BB1=2 


1909 GOSUB 580 


1910 
1929 
1930 
1540 
1959 


GOSUB 719 
RETURN 

’ *& curve 4 * 
GOSUB 559 
GOSUB 589 


1969 GOSUB 612 
1979 GOSUB 719 
1989 RETURN 

1899 ’ * curve 5 * 
1147 GOSUB 640 
1119 GOSUB 675 
1129 GOSUB 719 
1139 RETURN 

1149 ’ * curve 6 * 
1159 GOSUB 640 
1169 GOSUB 719 


1179 


RETURN 
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1189 ’ * uitvoer van resultaat * 

1199 PRINT 

1299 PRINT"De punten benaderen curve"CURVE":" 
1219 PRINT:PRINTTAB(5);LEFT$(CUR$(CURVE), 21) 

1229 PRINT:PRINT"het best als“:PRINT 

1239 ON CURVE GOSUB 1269, 1310, 1260, 1359, 1419, 1419 
1249 PRINT 

1259 RETURN 

1269 ’ * uitvoer curve 1,3 * 

1275 PRINTTAB( 19) "Ad="CSNG(AG) 

1289 PRINTTAB(10) "Al="CSNG(A1) 

1299 PRINTTAB( 19) "A2="CSNG(A2) 

1399 RETURN 

1319 ’ * uitvoer curve 2 * 

1320 PRINTTAB( 15) "A="CSNG(A1) 

1339 PRINTTAB( 19) “B="CSNG(AO) 

1349 RETURN 

1359 :239 * uitvoer curve 4x 

1369 PRINTTAB(19)" 
137% PRINTTAB(19) 
1389 PRINTTAB( 19)" : 

1395 PRINTTAB( 19) "D="CSNG(A2) 

1409 RETURN 

1419 ’ * uitvoer curve 5,6 %* 

1429 PRINTTAB( 19) "A="CSNG(EXP(AG) ) 
1439 PRINTTAB( 10) "B="CSNG(A1) 

1445 RETURN 


2.6 COMBINATIES EN PERMUTATIES 


Aan het einde van dit hoofdstuk maken we nog een klein uitstapje naar de combinatoriek, 
Dit is het terrein van de beroepsgokker die nu gewapend met zijn MSX zijn kansen kan 
wagen. 

Met dit programma kunnen we het aantal combinaties en permutaties uitrekenen. 

Het aantal combinaties heeft betrekking op de vraag hoeveel rijtjes ter grootte van k we uil 
een reeks van n kunnen samenstellen (hierbij letten we niet op de volgorde). Om de ge- 
dachte te bepalen, hoeveel mogelijke njtjes van 13 kaarten kunnen we uit 52 kaarten sa- 
menstellen 

Als we wel op de volgorde letten (m.a.w. ab is een andere reeks dan ba) hebben we te ma- 
ken met het aantal permutaties. 


Voorbeeld: 
Op een spijskaart staan 10 mogelijke gerechten. Hoeveel maaltijden bestaande uit 4 ge- 


rechten kan men hieruit samenstellen? 
Smakelijk eten! 
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xk COMBINATIES EN PERMUTATIES #44 


Aantal elementen ? 19 
Aantal trekkingen ? 4 


Aantal combinaties 
Aantal permutaties 


218 
5040 


N.B. Het aantal permutaties vindt men door het aantal combinaties met k! te vermenigvuldi- 
gen. Voor het voorbeeld. 


210*4! = 5040 


Programma: 


19 ’ * COMBINATIES EN PERMUTATIES %* 
29 GOSUB 69’ *k invoer ** 

37 GOSUB 149’ *4 berekening 4% 

40 GOSUB 309’ XX uitvoer ** 

53 END 

69 ’ XX invoer *% 

79 CLS 

89 PRINT" ***& COMBINATIES EN PERMUTATIES %%kx” 
99 LOCATE OH, 4 

19% INPUT" Aantal elementen “‚;N 

119 INPUT"Aantal trekkingen ";K 

129 IF K>N THEN PRINT"invoer onjuist":GOTO 190 
139 RETURN 

149 ’ ** berekening ** 

159 COMB=1 

169 IF K>(N-K) THEN Kl=N-K ELSE Kl=K 
175 IF K=@ THEN PERM=1:GOTO 299 

189 FOR I=N TO N-K1+1 STEP —1 

199 COMB=COMB*I 

200 NEXT I 

210 PERM=COMB 

220 FOR I=1 TO K1 

230 COMB=COMB/I 

240 NEXT I 

259 IF Ki=K THEN 299 

269 FOR I=K1+1 TO K 

275 PERM=@ERMXI 

280 NEXT I 

299 RETURN 


3D * XX uitvoer XX 

313 PRINT 

329 PRINT"Aantal combinaties 
33% PRINT"Aantal permutaties 
349 PRINT 

352 RETURN 


“CSNG( COMB) 
CSNG ( PERM) 
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3 FINANCIELE BEREKENINGEN 


De nu volgende acht programma's zijn tesamen geschikt om zeer uiteenlopende berekenin- 
gen uit te voeren op financieel gebied. Alle programma's hebben dezelfde formule als uit- 
gangspunt, namelijk 


EW = CW « (1 + ij" 
met EW = eindwaarde 
CW = beginwaarde (constante waarde) 


i = peruage (rentepercentage/100) 
n _= looptijd 


3.1 BEPALEN VAN TOTAAL GESPAARD BEDRAG 


Sparen kan op vele manieren. In dit programma wordt een veel voorkomende manier van 
sparen behandeld: periodiek een vast bedrag sparen. 


De basisformule luidt. 


m 
= 
u 


PB x (1 + i7 
PB x (1 + in! 
EW; = PB x (1 + ijn? 


m 
is 
u 


EWiotaa, = PB x E, G +7 


met PB = periodiek bedrag 


Dit programma berekent wat het eindsaldo is bij gegeven peruage (i) en periodiek bedrag 
(PB) bij gegeven looptijd (T) 


Opmerking: we mogen ook een looptijd opgeven die met een niet geheel aantal jaren over- 
eenkomt. Om de rente te kunnen omrekenen gebruiken we dan de volgende formule: 


1 + i= UT+RA00 


met 


p = aantal perioden in een jaar 
R = rentepercentage op jaarbasis 
i = peruage per periode 


Let wel: als de rente op jaarbasis 12% is, is deze op maandbasis géén 1%, maar iets minder 
(nl. 0,95%) 


Voorbeeld: 


Een student ontvangt f600,- per maand en wil van dit bedrag f100,- per maand sparen 
De geplande studieduur bedraagt 4 jaar (48 maanden). 
Hoeveel heeft hij na die periode gespaard bij een rentepercentage van 6%? 


xk BEPALING VAN TOTAAL %tkx 
kk GESPAARD BEDRAG hk 


Periodiek bedrag Fl ? 100 
Aantal perioden : 2? 48 
Rente per jaar (%) : ? 6 

Perioden per jaar : ? 12 


Eindbedrag : Fl 5418.63 
Ohtvangen rente : Fl 618.63 


Programma: 


19 ” *** BEPALING VAN TOTAAL 

GESPAARD BEDRAG *** 

29 ’ * invoer gegevens *% 

35 GOSUB 99 

49 * ** berekening eindbedrag en 
ontvangen rente *% 

55 GOSUB 199 

65 ” XX uitvoer ** 

73 GOSUB 280 

B3 END 

9D ’ XX invoer gegevens ** 

199 CLS:LOCATE 4,1 

119 PRINT" **** BEPALING VAN TOTAAL %xxx” 

129 PRINT" *kkk GESPAARD BEDRAG sok” 

135 LOCATE @, 4 

145 INPUT"Periodiek bedrag Fl “;PB 


INPUT" Aantal perioden 2, SEN 


INPUT"Rente per jaar (%) : “;R 
INPUT"Perioden per jaar : ";P 
RETURN 


’ *x berekening eindbedrag en 
ontvangen rente ** 

I=(1+R/100) °(1/P) 

F=g 

FOR T=1 TO N 

F=F+I°T 

NEXT T 

EB=PBXF’ X eindbedrag * 

OI=EB-NxPB’ *ontvangen rente * 

RETURN 

> xx uitvoer ** 

PRINT 

PRINT USING “Eindbedrag 


PRINT USING “Ontvangen rente : 


PRINT 
RETURN 


3.2 BEPALEN VAN PERIODIEK BEDRAG 


: Fl ##HER. HH GE 


Fl ##HHR, HH; O 


Dit programma is vrijwel identiek aan het vorige programma, het verschil ligt in het feit dat 
nu een andere grootheid wordt uitgerekend, namelijk het periodiek bedrag bij een gegeven 
eindwaarde. 


Voorbeeld: 


Dezelfde student wil in plaats van f5418.63 nu precies f6000,- sparen. 
Wederom gaan we uit van een studieduur van vier jaar (48 maanden). de vraag is nu hoe 
groot de maandelijkse inleg moet zijn 


“tk BEPALING VAN PERIODIEK **** 
khad TE STORTEN BEDRAG halal 


Gewenst eindbedrag Fl ? 6000 


Aantal perioden : 2 48 
Rente per jaar (%) : ? 6 
Perioden per jaar : ? 12 


Periodiek bedrag : F1 119.73 
Ontvangen rente : Fl 685.00 
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Programma: 


15 ’ %* BEPALING VAN PERIODIEK 
TE STORTEN BEDRAG **x 
29 ’ XX invoer gegevens ** 
39 GOSUB 9 
49 ’ XX berekenen periodiek begrag ** 
57 GOSUB 199 
69 ’ XX uitvoer * 
73 GOSUB 280 
85 END 
9Z ’ *x invoer gegevens *%* 
195 CLS:LOCATE 3,1 
119 PRINT"***x BEPALING VAN PERIODIEK %**” 
129 PRINT" kok TE STORTEN BEDRAG sok” 
133 LOCATE 9,4 
145 INPUT"Gewenst eindbedrag Fl “;EB 


159 INPUT"Aantal perioden 5 PEN 
169 INPUT"Rente per jaar (%) : “;R 
17% INPUT"Perioden per jaar Ce) 
189 RETURN 


199 ’ *k berekenen periodiek bedrag ** 

290 I=(1+R/105)"(1/P) 

219 F=@ 

229 FOR T=1 TO N 

239 F=F+I°T 

247 NEXT T 

257 PB=EB/F’ X periodiek bedrag * 

269 OI=EB-NXPB’ X ontvangen rente * 

279 RETURN 

289 ’ XX uitvoer ** 

299 PRINT 

307 PRINT USING “Periodiek bedrag : Fl #####H#. Hit” 
‚PB 

319 PRINT USING “Ontvangen rente : Fl ######, Hi 
„OI 

329 PRINT 

339 RETURN 
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3.3 KLIMSPAREN 


Banken bedenken steeds weer nieuwe spaarvormen om publiek te trekken. Een spaarvorm 
die de laatste tijd veel opgang maakt, is het zogenaamde klimsparen. Hierbij wordt een vast 
bedrag (meestal f 1000, =) gedurende een aantal jaren uitgezet tegen een rente die elk jaar 
toeneemt. De (dagelijkse) opvraagbaarheid van het uitgezette bedrag varieert van geval tot 
geval. Het nu volgende programma stelt ons in staat de aanbiedingen van de diverse ban- 
ken met elkaar te vergelijken. 


Voorbeeld: 
Een bank heeft de volgende aanbieding: de looptijd is 6 jaar en in het eerste jaar is het ren- 


tepercentage 4.5%. leder jaar neemt dit met 0.5% toe. Wat is nu het werkelijke renteper- 
centage? 


ak KLIMSPAREN at 


Beginbedrag (Fl) ? 1000 
Looptijd (jaar) 7? 6 


Rente in jaar 1 (%) ? 4.5 
Rente in jaar 2 (%) ? 5 
Rente in jaar 3 (%) ? 5.5 
Rente in jaar 4 (%) ? 6 
Rente in jaar 5 (%) ? 6.5 
Rente in jaar 6 (%) ? 7 
Eindbedrag : Fl 1398. 29 
Gemiddelde rente: F1 5.75 


Programma: 


19 * %kk KLIMSPAREN **x 

29 ’ XX invoer gegevens ** 
39 GOSUB 97 

49 ’ XX berekening ** 

53 GOSUB 229 

69 * Xx uitvoer *x* 

79 GOSUB 390 

89 END 

9 ’ XX invoer gegevens *x 
199 CLS:LOCATE 3,1 

119 PRINT" **** KLIMSPAREN **4x” 
129 LOCATE g,4 

139 INPUT"Beginbedrag (F1) 
149 INPUT"Looptijd (jaar) 
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159 PRINT 

169 DIM R(L) 

175 FOR I=1 TO L 

189 PRINT “Rente in jaar “;I; 
199 INPUT * (%) “";R(I) 
200 NEXT I 

219 RETURN 

229 ’ ** berekening ** 
239 T=1 

249 FOR I=1 TO L 

259 T=TX(1+R(I)/195) 
269 NEXT I 

275 EB=BXT 

289 G=(T°(1/L)-1)*100 


293 RETURN 

397 ’ * uitvoer *% 

319 PRINT 

329 PRINT USING “Eindbedrag Fl HEHHHR, HE; 
EB 


330 PRINT USING “Gemiddelde rente: Fl ###RH. HE" ; 


349 PRINT 
359 RETURN 


3.4 PERIODIEKE UITKERING 


In plaats van periodiek sparen kan men ook periodiek geld opnemen, We kunnen ons bij- 
voorbeeld afvragen hoe groot het beginkapitaal moet zijn om gedurende een bepaald aan- 
tal perioden, bij een bepaald rentepercentage een vaste uitkering te krijgen. De 
uitgangsformule is nu: 


n 1 
EK = PU xXx E 
Te (1 + it 


met _BK = beginkapitaal 
PU = periodieke uitkering 
Voorbeeld: 


De ouders van de student uit de vorige voorbeelden vragen zich af hoeveel geld ze op een 
rekening zouden moeten zetten om hun zoon elke maand f600,- te kunnen uitkeren. 


“kkk PERIODIEKE UITKERING %**x 


Periodieke uitkering Fl ? 600 


Aantal perioden : ? 48 
Rente per jaar (%) : 26 
Perioden per jaar : 2? 12 
Beginkapitaal : Fl 25627.63 


Ontvangen rente : F1 3172.37 


Programma: 


19 ” XX PERIODIEKE UITKERING *** 

29 ’ XX invoer gegevens * 

39 GOSUB 90 

49 * *k berekening ** 

5% GOSUB 189 

69 * * uitvoer *% 

7@ GOSUB 279 

B3 END 

9Z ’ ** invoer gegevens ** 

199 CLS:LOCATE 3,1 

119 PRINT" **& PERIODIEKE UITKERING %%*x” 
129 LOCATE 9,4 

139 INPUT"Periodieke uitkering Fl “;PU 


149 INPUT"Aantal perioden s CEN 
15% INPUT"Rente per jaar (%) s MR 
169 INPUT"Perioden per jaar ea 
173 RETURN 


189 ’ * berekening beginkapitaal 
en ontvangen rente * 
199 I=(1+R/189)"(1/P) 
209 F=D 
219 FOR T=1 TO N 
220 F=F+1/(I°T) 
230 NEXT T 
249 BK=PUXF’ %X periodiek bedrag X 
257 OI=NXPU-BK’ * ontvangen rente * 
269 RETURN 
275 *’ *k uitvoer *% 
28% PRINT 
299 PRINT USING "Beginkapitaal : Fl HEHRRH, HE; 
BK 
390 PRINT USING “Ontvangen rente : Fl ####RH. HR"; 
OI 
319 PRINT 
325 RETURN 
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3.5 PERSOONLIJKE LENING 


Dit programma is in principe het tegenovergestelde van het vorige programma. We gaan 
hier van de volgende situatie uit: iemand leent een bepaald bedrag en betaalt periodiek met 
vaste bedragen terug. Als deze bedragen gegeven zijn, kunnen we de werkelijke rente ui- 
trekenen, 


Voorbeeld: 

Een zeer alledaags voorbeeld is het kopen op afbetaling. Stel: iemand koopt een televisie 
van f2000,- en betaalt een jaar lang maandelijks f200,- wat is nu het werkelijke renteper- 
centage? 


sk PERSOONLIJKE LENING ** 


Geleend bedrag Fl ? 2000 
Aflossing per periode Fl ? 200 
Aantal perioden : ? 12 
Perioden per jaar : ? 12 
Rente per jaar : 41.31 % 


Betaalde rente : Fl 400.00 


Programma: 


19 ’ Xx PERSOONLIJKE LENING **x 

29 ’ *k invoer gegevens ** 

39 GOSUB 97 

49 ’ *k berekening * 

5@ GOSUB 189 

69 ’ XX uitvoer *x* 

70 GOSUB 339 

89 END 

9D ’ *k invoer gegevens ** 

199 CLS:LOCATE 3,1 

119 PRINT" *&&x PERSOONLIJKE LENING ***x” 
129 LOCATE 9,4 

139 INPUT"Geleend bedrag Fl “;CW 
149 INPUT"Aflossing per periode Fl H 
159 INPUT"Aantal perioden 

169 INPUT"Perioden per jaar 

179 RETURN 
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189 ’ X* berekening * 

198 F=CW/PU 

299 OG=D 

219 BG=1 

229 BF=g 

239 I=(OG+BG)/2 

249 IF (BG-OG)<1E-05 THEN 300 

257 FOR T=1 TO N 

269 BF=BF+1/(1+1)°T 

270 IF BF>F THEN OG=I:GOTO 220 

289 NEXT T 

299 BG=I:GOTO 220 

300 R=((1+I)°P-1)*190’ * rente/jaar * 
310 OI=(NXPU)-CW’ X betaalde rente % 
323 RETURN 

330 * 4% uitvoer *x* 

349 PRINT 

350 PRINTUSING"Rente per jaar : HR HR KR 
369 PRINTUSING"Betaalde rente : Fl #####. ##”;OI 
379 PRINT 

385 RETURN 


3.6 ANNUITEITENHYPOTHEEK 


Bij deze vorm van hypotheek wordt periodiek een vast bedrag afbetaald: de zogenaamde 
annuïteit. De annuîteit bestaat steeds uit een rentedeel en een aflossingsdeel. Het rentedeel 
is het nog niet afgeloste bedrag vermenigvuldigd met het rentepercentage. De gebruikte 
formule is dezelfde als in 3.4 en 3.5, maar nu wordt het af te lossen bedrag per periode 
bepaald. 


Voorbeeld: 


lemand leent f10.000,- op annuiteitenbasis met een looptijd van 5 jaar. Als de rente 8% 
is, wat is dan de annuïteit en hoe is dit bedrag over de 5 jaren samengesteld? 


sk ANNUITEITEN-HYPOTHEEK * 


Hypotheek Fl ? 19000 
Looptijd (in jaren) : ? 5 
Rente per jaar (%) : ? B 


Annuïteit : Fl 2594.56 
Betaalde rente : Fl 2522.82 
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jaar rente aflossing 


1 820. 00 1794. 56 

2 663.63 1849. 93 

3 516.36 1988. 29 

4 357.32 2147.26 

5 185.52 2319.04 
Programma: 


19 ’ %k& ANNUITEITEN-HYPOTHEEK *** 
29 ’ *X invoer gegevens ** 

37 GOSUB 97 

49 ’ * berekening ** 

57 GOSUB 170 

69 ’ *% uitvoer *%* 

75 GOSUB 265 

85 END 

9P ’ ** invoer gegevens ** 

199 CLS:LOCATE 3,1 

119 PRINT" ***x ANNUITEITEN-HYPOTHEEK %%x” 
129 LOCATE 9,4 


139 INPUT "Hypotheek Fl “;CW 
145 INPUT"Looptijd (in jaren) : “;N 
15% INPUT"Rente per jaar (%) : “;R 
169 RETURN 


175 ’ * berekening ** 

183 I=R/109 

199 F=0 

290 FOR T=1 TO N 

219 F=F+1/(1+I1)°T 

220 NEXT T 

230 AN=CW/F" * annuïteit * 

247 OI=N*AN-CW’ * betaalde rente * 

257 RETURN 

269 ’ * uitvoer ** 

273 PRINT 

289 PRINTUSING"Annuïteit : Fl HHR. HH; AN 
299 PRINTUSING Betaalde rente : Fl ####R, ##";OI 
307 PRINT:PRINT 

315 PRINT" jaar rente aflossing" 

329 PRINT 

337 FOR T=1 TO N 

349 RD=IXCW 

355 AD=AN-RD 
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369 CW=CW-AD 

370 PRINTUSING" ##";T; 

383 PRINTUSING" HRBER. HR ;RD; 
399 PRINTUSING" BEBRH. HH; AD 
409 NEXT T 

419 PRINT 

429 RETURN 


Opmerking: 


Bij het afsluiten van een hypotheek gelden doorgaans een aantal renteverhogende bepalin- 
gen. In het algemeen zijn er vier mogelijkheden van betalen. Van „gunstigste naar „on- 
gunstigste” wijze van betalen zijn dat: halfjaarlijks achteraf, per kwartaal achteraf, 
maandelijks achteraf of maandelijks vooraf. Verder dient men met de afsluitprovisie reke- 
ning te houden. 


Gaan we bijvoorbeeld uit van een provisie van 1,5% en een betaling maandelijks vooraf, 
dan kunnen we op de nu volgende manier de werkelijke rente berekenen met behulp van 
het „persoonlijke lening-programma' 


Eerst bepalen we het werkelijk geleende bedrag: 


provisie: 10,000 « 0,015 = 150 gulden 
aflossing eerste maand: (2504,56)/12 = 208,67 gulden 
Deze twee bedragen opgeteld is 358,67 gulden. 


In werkelijkheid lenen we dus slechts 10.000 - 358,67 = 9641,33. We moeten nog 60 - 1 
= 59 maanden aflossen. Geven we deze getallen op aan het „persoonlijke lening- 
programma’, dan blijkt de werkelijke rente ruim 2,5% hoger 


N.B. Deze berekening vergt tamelijk veel tijd. 
3.7 LINEAIRE HYPOTHEEK 


Bij een lineaire hypotheek is het jaarlijks te betalen aflossingsdeel over de gehele looptijd 
constant. Het rentedeel neemt echter ieder jaar af. waardoor het jaarlijks te betalen bedrag 
aan rente en aflossing ook afneemt. 


In formule: rentedeel n = (HB - (A * (n - 1) * i) 


met _n = index voor n-de jaar 
HB = hypotheekbedrag 
A = aflossingsdeel 
i = peruage 


Bij een variant van de lineaire hypotheek neemt het afiossingsdeel toe, naarmate de hypot- 
heek vordert (hypotheek met klimmende aflossing). 


Bijvoorbeeld. 1e periode van 5jaar 2% 
2e periode van 5 jaar 2,5% 
3e periode van 5jaar 3% 
4e periode van 5 jaar 3,5% 
5e periode van 5 jaar 4% 
6e periode van 5 jaar 5% 


Beide mogelijkheden zijn met dit programma te berekenen. 


Voorbeeld: 
lemand leent f150.000,- op basis van een lineaire hypotheek. Over de eerste 5 jaar be- 


draagt het aflossingsdeel 2% dus f3000,- per jaar. 
Het rentepercentage is 8%, Het aflossingsschema voor de eerste periode is dan: 


XK LINEAIRE HYPOTHEEK **x 


Hypotheek Fl ? 159000 
Looptijd (in jaren) : ? 5 
Rente per jaar (%) : 28 
Aflossingsdeel Fl ? 3009 
jaar rente aflossing 
1 12000. 50 15020. 90 
2 11760. 90 14760. 20 
3 11520. 95 14520. 90 
4 11280. 00 14280. 90 
5 11049. 09 14949. 90 


Resthypotheek : Fl 135000. 00 


Net als voor de annuiïteitenhypotheek gelden ook voor de lineaire hypotheken dezelfde ren- 
teverhogende bepalingen. In de volgende paragraaf wordt uitgelegd hoe men het werkelijk 
betaalde rentepercentage kan berekenen. 


Programma: 


19 
25 
30 
40 
50 
69 
70 
87 
9% 


? xk LINEAIRE HYPOTHEEK. xx 

* XX invoer gegevens Xx 

GOSUB 79 

> %x berekeningen en uitvoer *% 
GOSUB 169 

END 

’ Xx invoer *% 

CLS:LOCATE 3,0 

PRINT" ***& LINEAIRE HYPOTHEEK kx” 


199 LOCATE 9,4 

118 INPUT"Hypotheek Fl “;CW 
129 INPUT"Looptijd (in jaren) TN 

139 INPUT"Rente per jaar (%) es SjR 
149 INPUT"Aflossingsdeel Fl ";AD 
159 RETURN 

169 ’ ** berekeningen en uitvoer * 

179 I=R/199 

189 PRINT 

199 PRINT 

205 PRINT” jaar rente aflossing" 
219 PRINT 

229 FOR T=1 TO N 

239 RD=I*CH 

240 AN=RD+AD 

257 CW=CW-AD 

269 PRINT USING " ##";T; 

279 PRINT USING * HERBH. HR ;RD; 

289 PRINT USING * HERHH. HE"; AN 

297 NEXT T 

303 PRINT 

319 PRINT USING"Resthypotheek : Fl ###HRH. #8”; CW 
329 PRINT 
333 RETURN 


97 


3.8 RENTABILITEIT 


Een belangrijk criterium om een investering te beoordelen is de rentabiliteit van die investe- 
ring. De rentabiliteit is onmogelijk met de hand te berekenen, dit programma doet het in en- 
kele seconden. 


Voorbeeld 1: 
Een ondernemer moet beslissen of hij zal investeren in project A of project B. Beide projec- 


ten vergen een investering van f50.000,- en voor beide projecten is de looptijd 5 jaar. 
Project A levert gedurende die 5 jaar de volgende winsten op: 


le jaar. 5.000, 
2e jaar. 10.000,- 
3e jaar. 15.000, 
4e jaar: 20.000, 
5e jaar- 20.000, 
totaal 70.000,- 


Project B levert ook totaal 70.000 gulden op, maar de winsten zijn anders over de jaren 
verdeeld. 


1e jaar: 10.000, 
2e jaar. 20.000,- 
3e jaar. 20.000,- 
4e jaar 10.000, 
Se jaar. 10.000, 
totaal 70.000,- 


Met behulp van het programma berekenen we de rentabiliteit van project A: 


“xk RENTABILITEIT «ae xk RENTABILITEIT se 
Investering : Fl 50000.0D Investering : Fl 50000. DD 
periode winst (F1, ) periode winst (F1. ) 

1 5020. 00 1 19000. 00 

2 19003. 00 2 20000. 0D 

3 15909. 90 3 20000. 09 

4 20000. 90 4 10202. 00 

5 20000. 00 5 10900. 00 
Rentabiliteit : 10.19 % Rentabiliteit : 12.94 % 


Deze bedraagt 10,1% 


Met behulp van hetzelfde programma blijkt de rentabiliteit van project B echter 12,9%. Dit 
is beduidend beter dan project A, dus de ondernemer zal in project B investeren, 


Voorbeeld 2: 


Hoewel het programma primair bedoeld is om de rentabiliteit te berekenen, Is dit program- 
ma ook zeer geschikt om het werkelijke rentepercentage te bepalen bij een lineaire hypo- 
theek. We nemen hetzelfde voorbeeld als in paragraaf 3.7 


De afsluitprovisie bedraagt 1,5% en er dient maandelijks vooraf te worden afgelost 
We bepalen eerst het werkelijk geleende bedrag 

provisie: 150.000 « 0.015 = 2250, 

aflossing eerste maand: 15.000/12 = 1250,- 

werkelijk geleend bedrag: 150.000 - 2250 - 1250 = 146.500 


Aan het eind van het eerste jaar bedraagt de resthypotheek 147.000 gulden. 


“ek RENTABILITEIT sx 


Investering : F1 146502. 50 
periode winst (F1. ) 
12509. 00 
2 1259. 00 
3 1250. 02 
4 1259. 09 
5 1259. 00 
6 1259. 00 
Ld 1259. 00 
8 1259. 00 
8 1259. 00 
19 1259. 00 
11 1250. 00 
12 147020. 09 
Rentabiliteit : 0.81 X 


Het werkelijk betaalde rentepercentage per maand blijkt nu 0,81% 


Op jaarbasis is dat 10,1%. dus ruim 2% hoger! 


Programma: 


19 * **k RENTABILITEIT %xx* 
29 ’ ** invoer gegevens *% 
33 GOSUB 90 

43 ’ XX berekening ** 

5@ GOSUB 249 

69 ’ Xx uitvoer ** 

7@ GOSUB 370 

89 END 

9 ’ XX invoer gegevens * 
189 CLS:LOCATE 5,5 

119 PRINT" ***& RENTABILITEIT Xxx 
129 LOCATE 9,4 


139 INPUT" Investering Fl “;CW 
149 INPUT" Aantal perioden : VN 
159 PRINT 


169 DIM W(N) 

179 FOR T=1 TO N 

18% PRINT USING"Winst in periode ## “;T; 
199 INPUT": ";W(T) 

297 NEXT T 

219 PRINT 

229 PRINT"Even geduld aub" 

233 RETURN 

249 ’ * berekening *x* 

257 OG=D 

269 BG=1 

279 BCW=G 

289 I=(OG+BG)/2 

299 IF (BG-OG)<1IE-95 THEN 359 

390 FOR T=1 TO N 

319 BCW=BCW+N(T)/(1+I)°T 

320 NEXT T 

339 IF BCW>=CW THEN OG=I ELSE BG=I 
349 GOTO 279 

350 R=1*109 

369 RETURN 

375 ’ XX uitvoer Xx 

389 CLS:LOCATE 4,5 

39D PRINT" **** RENTABILITEIT %**x” 
495 LOCATE 5,4 

419 PRINT USING" Investering z FI HEBERHRR. HR; C 
W 

429 PRINT 


430 
440 
450 
460 
470 
480 
499 
507 
51% 


PRINT "periode winst (F1.)” 
FOR T=1 TO N 

PRINT USING * ##";T; 

PRINT USING * ikidididiikidid 
NEXT T 

PRINT 

PRINT USING “Rentabiliteit 
PRINT 

RETURN 


„HRG N(T) 


HERH HH KG 2 
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4 ALGEMEEN 


Dit hoofdstuk begint met een aantal programma's, welke met name voor elektrotechnici in- 
teressant zijn, namelijk een programma om verzwakkers te berekenen en twee program- 
ma's ter berekening van impedanties van karakteristieke netwerken. 

Vervolgens komt een programma aan bod waarmee het mogelijk is op eenvoudige manier 
„songs'’ te genereren. Dit programma gaat op een zeer originele wijze om met eenvoudige 
invoer. 

We vervolgen met nog een programma dat de creativiteit stimuleert: een „tekenprogram- 
ma’. Hiermee is het mogelijk fraaie tekeningen te maken. 

Een schaakklok vormt het volgende onderwerp van dit hoofdstuk, Professioneel schaken 
Is nu dus mogelijk geworden. 

Dan gaan we over tot een programma dat eveneens met creativiteit te maken heeft, al is 
dit programma wel meer specifiek geschikt voor programmeurs. Het is een programma 
waarmee het mogelijk is de loop van een programma te traceren en de gebruikte variabelen 
op te sporen. Kortom, een onmisbare programmeerhuip. 

We sluiten af met een checksumgenerator. Dit is een programma waarmee controlegetallen 
toegevoegd kunnen worden aan een programma, Dit om correct intypen te verzekeren, 


4.1.1 VERZWAKKERS 


Dit programma berekent de weerstandswaarden voor twee typen verzwakkers, namelijk 
een Pi- en een T-verzwakker, bij een opgegeven verzwakking. 

De gebruiker kiest de impedanties (in Ohm) aan weerszijden van het netwerk. De computer 
berekent vervolgens de minimale verzwakking die bereikt kan worden en vraagt dan naar 
de gewenste verzwakking (in dB). 

De computer tekent de verzwakkers, berekent de vereiste weerstandswaarden en drukt ver- 
volgens de karakteristieke impedantie, de verzwakking en de weerstandwaarden af. 


Voorbeeld: 
“tr VERZWAKKER NETWERKEN #44 


Impedantie Z1 (Q) ? 50 
Impedantie Z2 (Q) ? 69 

Minimale demping : 3.7654 dB 
Gewenste demping (dB) ? 6 
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skkk VERZWAKKER NETWERKEN stk 
O 


A-verzwakker 


Impedantie Z1. 
Impedantie Z2 


Demping 

R1 = 111.38 Q 
R2 = 293.378 Q 
R3 = 49.9169 2 


kk VERZWAKKER NETWERKEN skr 


in m R3 Ee uit 


T-verzwakker 


Impedantie Zl = 59 Q 

Impedantie Z2 = 69 Q 

Demping = 6 dB 

R1 = 19.2257 Q 

R2 = 26,9347 Q 

R3 = 73.3193 Q 
Programma: 


19 ’ %x& VERZWAKKER NETWERKEN %*%* 

29 CLS:WIDTH 39:KEY OFF 

39 PRINT” tok VERZWAKKER NETWERKEN %kkk” 
4D LOCATE G, 4 

59 ’ XX invoer *% 

63 GOSUB 279 

19 ’ XX berekenen en uitvoer *%* 

85 CLS 

95 PRINT" kkk VERZWAKKER NETWERKEN kkxx” 
199 IF A$="T" OR A$="t" THEN GOSUB 139 ELSE GOSUB 
200 

119 LOCATE @, 22 

129 END 
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139 ’ %k T-verzwakker *% 

149 R3=ZS*2*5QR(P)/(1-P) 

159 R1=Z1*X-R3 

169 R2=Z2*X-R3 

175 GOSUB 449’ print gegevens 

189 GOSUB 519’ verzwakker tekenen 
199 RETURN 

299 * ** T-verzwakker ** 

219 R3=2S*(1-P)/(2*SQR(P) ) 

229 Rl=1/(X/Z1-1/R3) 

239 R2=1/(X/22-1/R3) 

243 GOSUB 449’ print gegevens 

255 GOSUB 629’ verzwakker tekenen 
269 RETURN 

279 ’ XX invoer 4x 

289 INPUT" Impedantie Z1 (Q) ";Z1 

299 INPUT"Impedantie Z2 (Q) “;Z2 

300 V=21/22 

319 IF V<1 THEN V=1/V 

329 E=2GXLOG(SQR(V) +SQR(V-1)) /LOG( 19) 
339 PRINT"Minimale demping : “CSNG(E) "dB" 
349 INPUT"Gewenste demping (dB) “";D 
350 IF D<E THEN 330 

369 P=19"(-D/19) 

370 X=(1+P)/(1-P) 

389 ZS=SQR(Z1XZ2) 

397 PRINT"T- of T-verzwakker (P/T) 
400 A$=INKEY$:IF A$="" THEN 490 

419 IF A$="P" OR A$="T" OR A$="p" OR A$="t" THEN 
RETURN 

429 PRINT"Verkeerde invoer !":GOTO 399 
430 RETURN 

449 ’ X uitvoer berekeningen * 

450 LOCATE @,11:SP$=" 

469 GOSUB 730:PRINT 


470 PRINT SP$;"R1 ="CSNG(RI)"Q" 
489 PRINT SP$;“R2 ="CSNG(R2)"Q" 
490 PRINT SP$;"R3 ="CSNG(R3)"Q" 


507 RETURN 

519 ’ * teken T-verzwakker *x* 

529 LOCATE G,2 

537 PRINT SP$"O EO 
545 PRINT SP$" 1 

550 PRINT SP$" R1 u R2" 

569 PRINT SP$" in mn R3 uit” 
570 PRINT SP$" u 
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589 PRINT SP$” lis 
590 PRINT SP$"O_______—0" 


649 PRINT:PRINT SP$;" T-verzwakker”" 


619 RETURN 
629 ’ * teken T-verzwakker * 
639 LOCATE 9,2 


649 PRINT SP$"O—r——-___—___—_0" 


659 PRINT SP$" Ü 

66% PRINT SP$” el R3 
679 PRINT SP$"in B Ri R2 
689 PRINT SP$" a 

690 PRINT SP$" 


703 PRINT SP$"O___0" 


719 PRINT:PRINT SP$;" T-verzwakker 


723 RETURN 


739 ’ x« print ingevoerde gegevens * 
745 PRINT: PRINT 


759 PRINT SP$;“Impedantie Z1 = 
769 PRINT SP$; "Impedantie 22 
770 PRINT SP$; "Demping 


="D"dB" 


782 RETURN 


4.1.2 SERIEEL NETWERK 


21°" 
42°” 


In de voorbeelden zien we het seriële netwerk waar het hier om gaat. Weerstand R2, con- 
densator C en spoel L staan in serie, terwijl parallel aan deze serieschakeling weerstand R1 
is geschakeld. 
Na het invoeren van de waarden van R1, R2, C en L krijgt de gebruiker een menu te zien, 
Dit menu biedt hem de volgende mogelijkheden. 


1 
2. 
3, 
4 


Van de impedantie wordt de modulus en het argument (in graden) afgedrukt 


Verandering van de waarden van R1, R2, C en L 


Bepaling van de resonantiefrequentie en de impedantie bij deze frequentie. 


Bepaling van de impedantie bij een gegeven frequentie, 
Einde programma. 


Na het uitvoeren van de keuzes 1, 2 of 3 en het tonen van de resultaten, keert het program- 


ma door het indrukken van een willekeurige toets terug naar het menu. 
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Voorbeeld: 
kt SERIEKRING sax 


gi ER c 
R1 (9) ? 2500 
R2 (Q) ? 1000 
C (uF) ? ‚1 
L (uH) ? .O1E+6 


srt SERIEKRING wet 


Mogelijkheden: 

1 : veranderen komponentwaarden 
2 : bepalen resonantiefrequentie 
3 : bepalen impedantie 

4 : einde programma 


Keuze 7 2 


sk SERIEKRING sax 


R2 


R1 c 
Rl = 2500 Q C=.1luF 
R2 = 1400 Q L = 19909 u 


Resonantiefrequentie = 5032.92 Hz 


Impedantie:mod = 714.286 Q 
arg = @ graden 


Druk een toets in voor menu. . 


Mogelijkheden: 

1 : veranderen komponentwaarden 
2 : bepalen resonantiefrequentie 
3 : bepalen impedantie 

4 einde programma 


Keuze ? 3 


Bij welke frequentie ? 3000 


“kkk SERIEKRING sk 


mi c 
Rl = 2509 Q C=.1luF 
R2 = 1909 Q L = 19999 uH 


F = 3900 Hz 


Impedantie:mod = 751.33 Q 
arg =-13.301 graden 


Druk een toets in voor menu... 


Programma: 


19 
20 
35 
47 
5% 
69 
70 
80 
9 


’ ok SERIEKRING **x* 

* xk invoer *% 

GOSUB 579 ** 

’ Kk menu *%* 

GOSUB 749 

ON K GOSUB 579,63, 685 
IF K<>4 THEN 49 

END 

’ _* kop * 


199 CLS:LOCATE 5,9 


119 PRINT" %%#& SERIEKRING *xxx” 
129 RETURN 

139 ’ « teken schakeling * 

149 LOCATE J,3:SP$=" e 

159 PRINT SP$" OT 
169 PRINT SP$;SP$"I ie 
179 PRINT SP$;SP$"E R2 1 
189 PRINT SP$;SP$"E R1 GE 
199 PRINT SP$;SP$"E en 
209 PRINT SP$;SP$"| L U 

219 PRINT SP$" OA" 
223 RETURN 


238 ’ ** invoer komponentwaarden *%* 
249 * *k invoer komponentwaarden ** 
253 PRINT 


269 
270 


INPUT"R1 (Q) ";R1 
INPUT"R2 (92) “;R2 
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289 
299 
300 
319 
320 
330 
347 
352 
360 
379 
389 
390 
400 
419 
429 
430 
447 
459 
469 
470 
489 


INPUT"C (uF) ";C:C=C/1090000 ! 
INPUT"L (uH) “;L:L=L/1900000 ! 

RETURN 

’ ** bereken impedantie ** 
HULP=2XPIXFXL-1/(2*PIXFXC) 
IM=HULP*R1 "2 
RE=R1"2*R2+RIXR2°2+RIXHULP"2 
ZN=(R1+R2) “2+HULP"2 
ZA=SQR(RE"2+IM"2) /ZN 
ARG=18GXATN(IM/RE)/PI’ in graden 
RETURN 

’ xk uitvoer *%* 

GOSUB 99’ * kop * 

GOSUB 139’ * teken schakeling Xx 
PRINT: PRINT 

PRINT"R1 ="CSNG(R1) "2"; 
PRINTTAB(17)"C ="CSNG(C*1000000 ! ) "UF" 
PRINT"R2 ="CSNG(R2)"Q"; 
PRINTTAB(17)"L ="CSNG(L*1909009 ! ) "UH" 
PRINT 

IF K=2 THEN PRINT"Resonantiefrequentie ";ELSE 


PRINT"F "; 


490 
500 
510 
520 
den 
530 
540 
550 
569 
570 
580 
595 
620 
619 
629 
630 
647 
650 
669 
670 
689 
699 
700 
710 


PRINT “="CSNG(F) "Hz" 

PRINT 

PRINT “Impedantie:mod ="CSNG(ZA) "0" 

PRINT SP$" arg ="INT(ARG*1900+. 5)/1009"gra 


PRINT: PRINT 

PRINT"Druk een toets in voor menu...” 
IF INKEY$="" THEN 559 

RETURN 

’ xx invoer * 

PI=3, 141593# 

GOSUB 95’ * kop * 

GOSUB 139’ * teken schakeling * 
GOSUB 249’ « invoer waarden * 
RETURN 

’ %k resonantiefrequentie *% 
F=1/(2XPIXSQR(L*C) ) 

GOSUB 319’ bereken impedantie 
GOSUB 399’ uitvoer 

RETURN 

* Xx bepaling impedantie ** 
PRINT 

INPUT"Bij welke frequentie “;F 
GOSUB 319’ bereken impedantie 


720 


GOSUB 399’ uitvoer 


739 RETURN 

745 * XX menu ** 

75@ GOSUB 99’ kop 

760 LOCATE @, 4 

713 PRINT"Mogelijkheden: ” 

789 PRINT 

799 PRINT"1 : veranderen komponentwaarden" 
899 PRINT"2 : bepalen resonantiefrequentie" 
819 PRINT"3 : bepalen impedantie" 

829 PRINT"4 : einde programma” 

835 PRINT 

849 INPUT"Keuze ";K 

859 IF K<1 OR K>4 THEN PRINT"Verkeerde invoer:got 
o 899 

86% RETURN 


4.1.3 PARALLEL NETWERK 


In dit geval gaat het om een netwerk, dat een parallelschakeling is van weerstand R1, con- 
densator C en de serieschakeling van weerstand R2 en spoel L. Zie hiervoor het voorbeeld 
Het programma dient op de zelfde manier te worden gebruikt als dat voor het seriêle net- 


werk. 


Voorbeeld: 


“rt PARALLELKRING str 


R1 (Q) ? 1909 
R2 (Q) ? 100 

C (uF) ? .1 

L (uH) ? .O1E+6 


Xt PARALLELKRING sok 


Mogeli jkheden: 

1 : veranderen komponentwaarden 
2 : bepalen resonantiefrequentie 
3 : bepalen impedantie 

4 : einde programma 

Keuze ? 2 


Xto PARALLELKRING tk 


R1 = 1999 2 C=.1luF 
R2 = 199 Q L = 19999 uH 


Resorantiefrequentie = 4774.65 Hz 


Impedantie:mod = 500 Q 
arg = 0 graden 


Druk een toets in voor menu.. 


stk PARALLELKRING xxx 


Mogeli jkheden: 

1 veranderen komponentwaarden 
2 bepalen resonantiefrequentie 
3 bepalen impedantie 

4 : einde programma 


Keuze ? 3 


Bij welke frequentie ? 3000 


kk PARALLELKRING tx 


R2 
R1 c L 
Rl = 1429 0 C=.1uF 
R2 = 199 Q L = 19009 uH 
F = 3000 Hz 


Impedantie:mod = 255.641 Q 
arg = 35.203 graden 


Druk een toets in voor menu. . 


Programma: 


18 ’ %%k* PARALLELKRING *** 
29 * XX invoer ** 
39 GOSUB 589 ** 
4D ’ %% menu ** 
59 GOSUB 760 
69 ON K GOSUB 589, 640, 700 
70 IF K<>4 THEN 49 
B2 END 
9D * X kop * 
199 CLS:LOCATE 5,9 
119 PRINT" *%%* PARALLELKRING ****” 
129 RETURN 
139 ’ x teken schakeling * 
149 LOCATE G,3:SP$=" G 
159 PRINT SP$" “r_n 
169 PRINT SP$" 1 
179 PRINT SP$" U 
189 PRINT SP$" LJ 
199 PRINT SP$" ER! 
a 
l 


hel 
no 


205 PRINT SP$" 
210 PRINT SP$" 
220 PRINT SP$" 
232 RETURN 

249 ’ *X invoer komponentwaarden *x 
259 PRINT 

269 INPUT"R1 (2) “";R1 


a 
zZANY== 


270 
289 
290 
300 
319 
320 
330 
349 
35% 
369 
370 


INPUT"R2 (Q) “;R2 

INPUT"C (uF) “;C:C=C/1000000 ! 
INPUT"L (uH) ";L:L=L/1690000 ! 
RETURN 

’ XX bereken impedantie *%* 
W=2xPIxF 

N=R2"2+(WXL) “2 

RE=1/R1+R2/N 

IM=WK(C-L/N) 
MDL=1/SQR(RE“2+IM"2) 

IF RE=O THEN ARG=-90XSGN(IM) ELSE ARG=-180*AT 


N( IM/RE) /PI 


380 
390 
400 
419 
420 
430 
440 
450 
460 
470 
489 
490 


RETURN 

’ xk uitvoer *% 

GOSUB 99’ * kop * 

GOSUB 139’ * teken schakeling * 
PRINT: PRINT 

PRINT"R1 ="CSNG(RI) "2"; 

C1=C*190000D 

PRINTTAB(17)"C ="CSNG(C*1909000 ! ) "UF" 
PRINT"R2 ="CSNG(R2) "2"; 
PRINTTAB(17)"L ="CSNG(L*1550300 | ) "4H" 
PRINT 

IF K=2 THEN PRINT"Resonantiefrequentie ";ELSE 


PRINT"F “; 


500 
519 
520 
530 
den 
540 
550 
560 
570 
587 
590 
655 
619 
629 
630 
649 
659 
669 
670 
689 
695 
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PRINT "="CSNG(F) "Hz" 

PRINT 

PRINT “Impedantie:mod ="CSNG(MDL) "2" 

PRINT SP$" arg ="INT(ARG*1990+. 5)/1000 "gra 


PRINT: PRINT 

PRINT"Druk een toets in voor menu...” 
IF INKEY$="" THEN 569 

RETURN 

> xx invoer * 

PI=3.141593# 

GOSUB 9’ * kop * 

GOSUB 139’ * teken schakeling %X 
GOSUB 249’ * invoer waarden * 
RETURN 

’ xx resonantiefrequentie *% 
W2=1/(L*C) -R2°2/L°2 

IF W2>Z THEN F=SQR(W2)/(2*PI) ELSE F=0 
GOSUB 319’ bereken impedantie 

GOSUB 399’ uitvoer 

RETURN 


700 * Xx bepaling impedantie *% 

719 PRINT 

720 INPUT"Bij welke frequentie ";F 

730 GOSUB 319’ bereken impedantie 

749 GOSUB 399’ uitvoer 

753 RETURN 

760 * %% menu *x* 

779 GOSUB 99’ kop 

787 LOCATE 9,4 

729 PRINT "Mogelijkheden: ” 

893 PRINT 

819 PRINT"1 : veranderen komponentwaarden" 
829 PRINT'2 : bepalen resonantiefrequentie" 
839 PRINT"3 : bepalen impedantie” 

849 PRINT"4 : einde programma” 

850 PRINT 

86% INPUT"Keuze ";K 

Sin K<l OR K>4 THEN PRINT"Verkeerde invoer:got 
o 

885 RETURN 


4.2 SONGGENERATOR 


ledereen die wel eens geprobeerd heeft een muziekstukje op de MSX-computer te compo- 
neren en in te voeren zal gemerkt hebben dat dit, ondanks het speciaal hiervoor ontwikkel 
de MusicMacro, een tijdrovend karwei is. 

SONGGENERATOR biedt hiervoor een snelwerkend alternatief 

Uitgaand van de door u vastgelegde grote lijn, die u in de standaard accoord-notatie kunt 
invoeren, zoekt SONGGENERATOR bijpassende noten, die vervolgens door u gewijzigd en 
afgespeeld kunnen worden. 

Een van de aantrekkelijke kanten hierbij is dat SONGGENERATOR een toevalskarakter 
heeft, zodat niet steeds dezelfde tonen tevoorschijn komen. 

Achtereenvolgens worden nu de songstructuur en de commando's van SONGGENERA- 
TOR beschreven. 

Daarna zal een voorbeeld worden behandeld. 


SONGGENERATOR: de songstructuur 
SONGGENERATOR beschouwd een compositie als verdeeld in MATEN, PARTS en 


SONGS. Een PART is hierbij niets anders dan een serie MATEN en evenzo is een SONG 
een serie PARTS 
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Het eerste dat dient te gebeuren is de invoer van een of meer MATEN. 
U typt als eerste commando : - 


>EM (gevolgd door RETURN) 


(> is de zogenaamde prompt) 

Nu verschijnt een vraagteken als prompt en de mededeling E MAAT, ten teken dat u zich 
in de edit-mode voor maten bevindt. 

Nu kunt u een MAAT invoeren. Deze dient een nummer of letter als naam te krijgen. Een 
voorbeeld 


s=dmdmdm7dm (gevolgd door RETURN) 


Deze MAAT van vier accoorden, namelijk drie dm (D mineur) accoorden en één dm7 (D 
mineur septiem) accoord, zal nu op het scherm geplaatst zijn. De d's in de accoordstring 
zullen hierbij in hoofdletters afgedrukt worden. 

In de string kunnen de volgende typen accoorden staan: 


D majeur accoord D# _ Dis accoord 
Dm _ mineur accoord Ds __Dsus accoord 
D- Des accoord D7 __D septiem accoord 


In plaats van het D accoord kunt u natuurlijk ook een C,E‚F.G,A of B accoord nemen. 
Combinaties hiervan zijn ook mogelijk bijvoorbeeld: Em7 #. 

Wanneer het geluid van de TV voldoende sterk staat afgesteld of (beter) de geluidsoutput 
van uw MSX-computer op een versterker aangesloten is, kunt u horen welke noten SONG- 
GEN gekozen heeft. 

U kunt tot maximaal 8 MATEN invoeren. 

De edit-mode wordt verlaten door alleen een RETURN te geven. 

Nu moet er een PART samengesteld worden. We toetsen in 


>EP (gevolgd door RETURN) 
We kunnen de verschillende PARTS invoeren bijvoorbeeld: 
i=abaCc3abc(gevolgd door RETURN) 
waarbij dan a,b,‚C‚c en 3 namen van door u gemaakte MATEN zijn. 
Hier geldt ook weer een maximum van 8 PARTS. 
Na het opnieuw verlaten van de edit-mode (door het geven van alleen RETURN) kunnen 
we de SONGS gaan invoeren 


>ES (gevolgd door RETURN) 


De invoer geschiedt analoog aan die van PARTS, hier geldt echter een maximum van 5 
SONGS. 
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SONGGENERATOR : de commando's en parameters 


Daar de parameters in de commando-mode gewijzigd moeten worden, worden ze hier ook 
beschouwd. 


CSAVE f$ schrijf de datafiles en parameters weg naar disk of cassette onder de 
naam f$ 

CLOAD f$ lees datafiles en parameters in onder de naam f$ 

MUSIC f$ Voer MusicMacro f$ uit. Met dit commando stellen we de klankkleur 


en het tempo in. Zie de PLAY-instructie in uw MSX-handleiding voor 
details hierover 


RERAND f$ Randomiseer de MATEN f$ opnieuw bv :RE abc (gevolgd door 
RETURN) 

EM EP,ES ga naar edit-mode van resp. MAAT, PART of SONG 

PM,PP.PS f$ speel de namen in f$ uit resp. MAAT, PART of SONG 

SPEED n wijzig de speelsnelheid 

NOTEN n wijzig het aantal herhalingen van ieder accoord 

VOICES n wijzig het aantal stemmen (maximaal 3) 

WIDTH n stelt het toonbereik in waarbinnen SONGGEN noten kiest 

SILENCE n stelt de noot/rust verhouding in. Als n= 0 worden er alleen noten ge- 
genereerd, als n=9 vrijwel alleen rusten. 

HELP druk een samenvatting van de commando's af 

\ herhaal het laatste commando. Dit is handig bij het randomiseren: Na 


het commando RE f$ toetst men, totdat het resultaat naar tevreden- 
heid is, \’ (gevolgd door RETURN) in. Dit teken heet „backslash'’. 
EXIT verlaat SONGGEN 


Deze commando's werken alleen in de commando-mode, dus niet in de edit-mode. Alle 
commando's mogen worden afgekort tot de eerste twee letters. 


Verder kan met de F1-toets het spelen van een compositie afgebroken worden. Dit is be- 
langrijk omdat de composities al gauw een tijdsduur van ettelijke minuten kunnen beslaan. 


Een voorbeeld 
Het volgende voorbeeld beschrijft de invoer van enkele MATEN, PARTS en SONGS, De 
compositie is vrij willekeurig gekozen, 
Aangenomen dat de computer in de commando-mode staat toetsen we in: 
EM (gevolgd door RETURN) 
en voeren vervolgens de volgende regels in: 
a=amamamam g=gsgsgs 
e=emememem c=cmscmsems 
A=amamam?7am?7 D=dm7dm7dm7dm7 


d=amamdmam 


en vervolgens alleen een RETURN om weer in de commando-mode te komen. 
Geef nu: 


EP (gevolgd door RETURN) 


15 


en voer in: 


1=aeae l=geegee 
j=AeAe o=D 
h=dDdD 


Geef weer alleen een RETURN en vervolgens. 
ES (gevolgd door RETURN) 
voer in 
Kz jij 
y=hh 
z=olloll 
en nogmaals een RETURN 


Resultaat: 


MAAT azAmAmAmAm 

e=EnEnEnEn width: 8 
A=AmAmAm7Am7 voices: 3 
d=AmAmDmAm silence: 6 
g=GsGsGs noten: 1 
e=CmsCmsCms speed: 5 
D=Dm7Dm7Dm7Dm7 


PART izaeae 
j=AeAe 
h=dDdD 
l=geegee 
o=D 


SONG x=iijiijji 
=hh 
z=olloll 


Het is nu tijd om de parameters in te voeren en de MATEN te bepalen. 
Geef 


Sl 4 
SP 8 
MU m1500s0t200 
WI6 
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Speel met behulp van PM f$ alle MATEN (a,e‚A‚d.g.c en D) af en maak ze zonodig opnieuw 
met RE f$ totdat de MATEN naar wens zijn. Het gebruik van het herhaalcommando \ is hier- 
bij handig. 

Geef vervolgens 


Wig 
SI 6 


Als alles goed gegaan is, is de compositie nu ingevoerd en kunt u hem saven met CS lied1 
gevolgd door RETURN 
Met behulp van een afspeelcommando als: 


PS xyyxyyz 


wordt de hele compositie afgespeeld. 
Veel succes bij het componeren, 


Programma: 


19 REM SONGGENERATOR 

23 CLEAR 1000, &HCFEG: DEFINT H-N 

37 KEYS, “csave”"+CHR$(34) +" PLAY" +CHR$(34) +", 2" +CHR 
$(13) 

43 KEY OFF: I=RND(-TIME) 

57 POKE &HFBBO, 1 

63 ON STOP GOSUB 79:STOP ON:GOTO 89 
79 RETURN 

89 COLOR 1,15:SCREEND, , 2 

93 CLS:WIDTH 39 

199 GOSUB 4939’ lees routine in 

11G ’ nnn 

129 ’ constanten 

139 NX=15’rustlengte 

149 NS=3’'aantal stemmen 

15% NB=1’nootrepetitie 

169 ML=29’maatlengte 

179 MA=8’aantal maten, delen, stukken 
189 HM=D:HP=O:HS=0: LV=24: HA=0 

199 HT=5 

209 A$="m3Z0Dt159s0115" 

219 PLAY A$,A$, A$ 

220 DIM NP(ML,MA,NS) 

239 DIM NM$(MA),NP$(MA),NS$(MA) 

249 DIM LM(MA),LT(7) 

257 DIM L$(MA),LP$(MA), LS$(MA) 

267 GOSUB 3699’ vul 1t(7) 

27 ON KEY GOSUB 1389’play/stop 
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289 KEY(1) ON 

29D ON ERROR GOTO 3725 
305 ’ nn nn 
319 * MAIN 

329 GOSUB 1759’ print MP S 
333 GOSUB 639’ emdint 
345 COLOR 15,4, 4: CLS: END 
355 ’ 
369 ’ space killer 

375 J=LEN(A$) 

389 IF J= THEN RETURN 


390 IF MID$(A$,J,1)=" " THEN J=J-1:GOTO 399 
400 AS=LEFTS$(A$,J) 

410 RETURN 

420 '--nnneneneee 


430 ’ [a..g] >> [A..G] 

445 LL=LEN(NM$(I)) 

457 FOR J=1 TO LL 

467 B=ASC(MIDS$(NM$(I),J)) 

475 IF B>96 AND B<194 THEN NM$(I)=LEFT$(NM$(I),J- 
1) +CHR$(B-32) +RIGHTS(NM$(I), LL-J) 

485 NEXT J 

490 RETURN 

5D ' 

519 ’ le >> UC 

520 LL=LEN(K$) 

539 FOR I=1 TO LL 

540 B=ASC(MID$(K$, I)) 

550 IF B>96 AND B<123 THEN K$=LEFT$(K®$, I-1)+CHR$( 
B-32)+RIGHTS(K$, LL-I) 

560 NEXT I 

575 RETURN 

587 ' 

590 LOCATE @,0:PRINTSPC(32) 

637 LOCATE @,5 

619 RETURN 
827 ’ 
638 ’ emd int 
649 LOCATE O,1:PRINTSTRING$(39, “—") 
659 J=LV/3:GOSUB 2969’ width 

669 J=NS:GOSUB 2909’ aantal voices 
675 J=HA:GOSUB 1569’ silence 

689 J=NB:GOSUB 1629’nootrep. 

699 J=HT:GOSUB 1679’speed 

790 GOSUB 597 

710 LINEINPUT">";A$ 
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729 
730 
749 
750 
760 
779 
780 
790 
805 
815 
at 

829 
rt 

83% 
ng 

849 
850 


IX=5 

IF LEFT$(AS, 1)="\" THEN A$=VO$ 
VO$=A$ 

LA=LEN(A$) 

IF LA=1 THEN 989 

K$-LEFT$(A$, 2):GOSUB 529 

IF LA=2 THEN 939 

A$=RIGHT$(A$, LA-INSTR(3,A$, * “)) 
J=VAL(A$) 

IF K$="PM" THEN GOSUB 1429:GOTO 645 * 


IF K$="PP" THEN GOSUB 1919:GOTO 649 ’ 
IF K$="PS" THEN GOSUB 1149:GOTO 645 ’ 


IF K$="SI" THEN GOSUB 1559:GOTO 649 * 
IF K$="WI" THEN GOSUB 2959:GOTO 645 * 


oktaven 


860 
879 
ten 
889 


IF K$="SP" THEN GOSUB 1679:GOTO 640 
IF K$="NO" THEN GOSUB 1629:GOTO 640 ’ 


IF K$="VO" THEN GOSUB 1999:GOTO 649 ’ 


voices 


897 


IF K$="RE" THEN GOSUB 2149:GOTO 649 


randomizen 


00 
(7) 

919 
927 
937 
947 
957 
960 
970 
989 
990 


IF K$="CL" THEN GOSUB 2319:GOSUB 1759: 


IF K$="CS" THEN GOSUB 2579:GOTO 640 
IF K$="MU" THEN GOSUB 2819:GOTO 649 


play ma 
play pa 
play so 
rusten 
aantal 
aant no 
aantal 
opnieuw 


GOTO 64 


IF K$="EM" THEN KE=1:GOSUB 2889:GOTO 640 
IF K$="EP" THEN KE=2:GOSUB 2889:GOTO 640 
IF K$="ES" THEN KE=3:GOSUB 2889:GOTO 649 


IF K$="HE" THEN GOSUB 3789:GOTO 649 
IF K$="EX" THEN RETURN 


1909 * play part(s) 

1019 P$=A$ 

1929 FOR IP=1 TO LEN(P$) 
1939 B$-MID$(P$, IP, 1) 

1940 FOR JP=1 TO HP 

1959 IF LP$(JP)=B$ THEN 1970 
1967 NEXT JP 

1979 A$=NP$(JP) 

1989 IF IX=1 THEN 1110 

1995 GOSUB 1449’ speel maat 
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1199 NEXT IP 

1119 RETURN 

1129 ' 

1139 ’ play song(s) 

1149 Q$=A$ 

1159 FOR IS=1 TO LEN(Q$) 

1169 B$=MID$(Q®, IS, 1) 

1179 FOR JS=1 TO HS 

1189 IF LS$(JS)=B$ THEN 1290 
1199 NEXT JS 

1229 P$=NS$(JS) 

1219 IF IX=1 THEN 1249 

1229 GOSUB 1929’ speel part 
1230 NEXT IS 

1249 RETURN 

1255 ’--nnmemen 

1269 ’ note playing 

1270 HI=NP(JJ,J,1) 

1289 H2=NP(JJ,J, 2) 

1299 H3=NP(JJ,J, 3) 

1337 FOR HB=1 TO NB 

1319 IF Hi=@ AND H2=0 AND H3=@ THEN PLAY “r=nx;", 
“r=nx; ", “r=nx; “:GOTO 1359 
1329 IF NS=3 THEN PLAY “n=h1;", "n=h2;", “n=h3; ":GO 
TO 1350 

1339 IF NS=2 THEN PLAY “n=h1;",“n=h2;":GOTO 1355 
1340 PLAY “n=h1;" 

1359 NEXT HB 

1363 RETURN 

1379 '-—nmmenmeme 

1389 ’ key(1) 

1399 IX=1:GOSUB 599:PRINT" STOP 
1495 RETURN 

1415 '-—-- 

1429 ’ play maten 

1439 ’'1$ bevat strings uit a$ 
1449 FOR I=1 TO LEN(A$) 

1459 B$=MID$(A$, I, 1) 

1469 FOR J=1 TO HM 

1479 IF L$(J)=B$ THEN 1495 
1489 NEXT J 

1495 FOR JJ=1 TO LM(J) 

1595 GOSUB 1269’ play note 
1519 NEXT JJ 

1529 NEXT I 

1539 RETURN 
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rusten inbrengen 

IF J<@ OR J>9 THEN 3650 
HA=J:LOCATE 28,5 

PRINT "silence: “HA 


nootrepetitie 
IF J<l OR J>8 THEN 3659 
NB=J:LOCATE 30,6 
PRINT "noten: “NB 


speed 


IF J<1l OR J>23 THEN GOTO 3650 


LOCATE 39,7:PRINT"speed: ";J 
HT=J:J=J*10+23 
PLAY "tz=j;", "tzj;", “t=j;” 


’ print MP S 

LOCATE @, 2:PRINT"MAAT" 
IF HM=@ THEN 1819 

FOR J=1 TO HM 


LOCATE 5,J+1:GOSUB 1960 
PRINTL$(J) ; “=";NM$(J) 
NEXT J 

LOCATE @, 2+MA: PRINT "PART" 


IF HP=0 THEN 1879 

FOR J=1 TO HP 

LOCATE 5,J+MA+1:GOSUB 1969 
PRINTLP$(J) ; “=";NP$(J) 

NEXT J 

LOCATE @, 2+2*MA: PRINT" SONG" 
IF HS=0 THEN 1939 

FOR J=1 TO HS 

LOCATE 5,J+2%*MA+1:GOSUB 1960 


PRINTLSS$(J) ; “=";NS$(J) 

NEXT J 

RETURN 

’ space 

PRINTSPC(23): LOCATE 5,CSRLIN 


aantal voices 
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2000 IF J<1 OR J>3 THEN 3650 

2919 LOCATE 29, 4:NS=J 

2929 PRINT"voices: "NS 

2933 RETURN 

2747: ’ -nnrnennn-n 

2959 ’ WI: aantal oktaven 

2060 IF J<1 OR J>8 THEN 3655 

2975 LOCATE 36,3 

2085 PRINT” 

2097 LOCATE 30,3 

2195 PRINT "width: "J 

2119 LV=J*3 

2125 RETURN 

2199; “mn 

2149 * rerandomize 

2159 FOR H=l TO LEN(A$) 

2169 B$=MID$(A$,H, 1) 

2179 FOR I=1 TO HM 

2189 IF L$(I)=B$ THEN 2290 

2195 NEXT I 

2205 GOSUB 3279’ randomize np(,i,) 
2219 NEXT H 

2220 RETURN 

2235 ’ 

2245 GOSUB 59G:LOCATE 1,9:STOP OFF 
2259 INPUT"disk of tape (d/t)";K$ 
2260 K$=LEFT$(K$, 1):GOSUB 520 
2279 IF K$="D" THEN K$="":RETURN 
2289 IF K$="T" THEN K$="cas: ": RETURN 
2295 GOTO 2245 

2390 * 
2319 ’ file laden 

2320 GOSUB 2240 

2339 OPEN K$+A$ FOR INPUT AS #1 
2349 INPUT#1,NS,NB, HM, HP, HS, HA, LV 
2359 FOR I=1 TO HM 

2360 INPUT#1,NM$(I) 

2373 INPUT#1,LM(I) 

2389 INPUT#1,L$(I) 

2390 NEXT I 

240% FOR I=1 TO HP 

2415 INPUT#1,NPS$(I) 

2420 INPUT#1,LP$(I) 

2430 NEXT I 

2445 FOR I=1 TO HS 

2450 INPUT#1,NS$(I) 


122 


2463 INPUT#1,LS$(I) 
2470 NEXT I 

2489 FOR I=1 TO HM 
2499 FOR J=1 TO LM(I) 
2505 FOR K=1 TO NS 
2519 INPUT#1,NP(J, I,K) 
2529 NEXT K:NEXT J:NEXT I 
2539 CLOSE #1 

2543 
2550 === 

2569 ’ file wegschrijven 

2579 SCREEN ,,,1:GOSUB 2249 

2589 OPEN K$+A$ FOR OUTPUT AS #1 

2599 PRINT#1,NS,NB, HM, HP, HS, HA, LV 

2600 FOR I=1 TO HM 

2619 PRINT#1,NM$(I) 

2629 PRINT#1,LM(I) 

2639 PRINT#1,LS$(I) 

2649 NEXT I 

2659 FOR I=1 TO HP 

2669 PRINT#1,NPS$(I) 

2673 PRINT#1,LP$(I) 

2689 NEXT I 

2699 FOR I=1 TO HS 

2790 PRINT#1,NS$(I) 

2719 PRINT#1,LS$(I) 

2720 NEXT I 

2739 FOR I=1 TO HM 

2740 FOR J=1 TO LM(I) 

2757 FOR K=1 TO NS 

2769 PRINT#1,NP(J, I,K) 

2779 NEXT K:NEXT J:NEXT I 

2789 CLOSE #1 

2790 RETURN 

289B * 

2819 *’ MM routine 

2820 K$=A$:GOSUB 520: I=INSTR(KS, "L") 

2839 IF I<1 THEN 285 

2840 NX=VAL(RIGHT$(KS$, LEN(K$)-I) ) 

2850 PLAY K$,K$,K$ 

286% RETURN 

2875 ’ mannen 

2889 ‘edit M,P,S 

2899 LOCATE 32,@:PRINT"E "; 

2903 IF KE=1 THEN PRINT"MAAT"ELSE IF KE=2 THEN PR 
INT"PART" ELSE PRINT"SONG" 
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2915 GOSUB 595 

2929 INPUT A$:A$=LEFT$(A$, 22) 

2930 GOSUB 369’ kill space 

2949 IF INSTR(AS, “=")=0 THEN 3149 

2950 K$-LEFT$(AS, 1) 

2969 IF K$="=" THEN 3149 

2975 IF KE=1 THEN HX=HM ELSE IF KE=2 THEN HX=HP E 
LSE HX=HS 

2989 IF HX=9 THEN I=1:HX=1:GOTO 3950 
2999 J=1 

3075 GOSUB 3165 

3015 I=J 

3029 IF KE=3 AND (I>(21-2*MA)) THEN 3140 
3030 IF I>MA THEN 3650 

3049 IF I>HX THEN HX=I 

3959 IF KE=1 THEN L$(I)=K$:HM=HX ELSE IF KE=2 THE 
N LP$(I)=K$:HP=HX ELSE LS$(I)=K$:HS=HX 
3069 K$-RIGHT$(AS, LEN(A$) -2) 

3979 IF KE=1 THEN NM$(I)=K$ ELSE IF KE=2 THEN NP$ 
(I)=K$ ELSE NS$(I)=K$ 

3985 IF K$="" THEN 3149 

3093 IF KE=1 THEN GOSUB 439’ LC>>UC 
3109 GOSUB 1759’PRINT 

3119 IF KE=1 THEN GOSUB 3279’ randomize 
3129 GOTO 2919 

3139 ’ space 

3149 LOCATE 32,9: PRINTSPC(6) 

315% RETURN 

3169 IF J>HX THEN RETURN 

3175 ON KE GOTO 3189, 3295, 3220 

3189 IF L$(J)=K$ THEN RETURN 

3199 GOTO 3230 

3290 IF LP$(J)=K$ THEN RETURN 

3219 GOTO 3230 

3229 IF LS$(J)=K$& THEN RETURN 

3239 J=J+1:GOTO 3160 

324D ' en 

3259 ’ randomize np(,i,) 

3269 ’ nm$(i) bevat acc string 

3270 B$=NM$(I):LL=LEN(B$) 

3288 J=1:IN=G 

3290 AC$-MID$(B$,J,1):C$="" 

3390 J=J+1 

3319 IF J>(LL+1) THEN 3350 

3320 D$=MID$(B$,J, 1) 

3330 IA=INSTR("CDEFGAB", D$) 
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3340 
3350 
3369 
3375 
3389 
3395 
3400 
3410 
3420 
3430 
3449 
3455 
3460 
3475 
3480 
3550 


IF IA=0 THEN C$=C$+D$:GOTO 3309 
IN=IN+1 

ID=-1:MI=g:MX=3 

IA=INSTR( “CDEFGAB", AC$) 

IA=LT( IA) 

IF INSTR(C$, ” 
IF INSTR(C$, "s" 
IF INSTR(CS, “m' 
IF INSTR(CS, * 
IF INSTR(CS, “— 
FOR JJ=1 TO NS 

NO=INT(RND(1)*LV) 

OK=( INT(NO/5)+1)*12 

NO=(NO MOD MX)*3+1 

IF (OK/3)MOD3=5 THEN NP(IN, I,JJ)=OK+IA: GOTO 


THEN ID=:MX=4 
THEN MX=4 

THEN MI=-1 
THEN IA=IA+1 
THEN IA=IA-1 


3499 IF NO=19 AND ID THEN NO=11 

3503 IF NO=4 AND MI THEN NO=3 

3519 IF NO=1 THEN NO=g 

3523 NP(IN, I, JJ) =NO+IA+OK 

3539 IR=RND(1)<(.11*HA) 

3549 IF IR THEN NP(IN, I,JJ)=@ 

3559 NEXT JJ 

3569 PLAY "n=NP(IN,I,1);", “n=NP(IN, 1,2); ", “n=np(i 
n,1,3);" 

3579 IF J=LL+1 THEN LM(I)=IN:RETURN 
3585 GOTO 3299 

3597 ’ -a-— 

3608 * vul 1lt(7) 

3618 LT(1)=D:LT(2)=2:LT(3)=4:LT(4)=5 
3629 LT(5)=7:LT(6)=9:LT(7)=11 

3639 RETURN 

354F ’ -annn- 

3659 ’ foutjes 

3669 LOCATE 25,9 


3670 
3689 
3690 
3700 


3719 ’ 


3720 
3730 
3745 
3750 
3769 


3770 * 


PRINT" fout commando 

FOR I=1 TO 2090 :NEXT I 

LOCATE 25,9: PRINTSPC(13) 

RETURN 

STOP ON:IF ERR=5 THEN 3769 
PRINT"Error "ERR" probeer opnieuw * 
TIME=G 

IF TIME<299 THEN 375% 

RESUME 649 
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378% 
3790 
3800 
3815 
3829 
3835 
3845 
3850 
3869 
3875 
3889 
3890 
3900 
4 
3919 
euw 
3920 
3930 
3940 
3959 
3960 
3970 


3980 
3999 
4000 
4710 
4720 
4930 
4747 
4950 
4060 
4975 
4580 
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’ help 


file 


IF HY=1 THEN U=USR1(@):GOTO 4910 
CLS:LOCATE 6,9 
PRINT” SONGGEN COMMANDOLIJST 
PRINTSTRINGS(38, "—") 


PRINT" 
PRINT" 
PRINT” 
PRINT" 
PRINT" 
PRINT" 
PRINT" 


CLOAD 
CSAVE 
MUSIC 
SPEED 
NOTES 
WIDTH 
VOICES 


PRINT "SILENCE 


PRINT” 


PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 


RERAND 


NE 
E?" 
P$ 

HELP" 

EXIT" 


f$"TAB(14)":laad datafile f$ 
f$"TAB(14)":bewaar datafile f$ 
f$"TAB(14)":MusicMacro 
n“TAB(14)":speelsnelheid 
n”“TAB(14)“:nootherhalingen 
n"TAB(14) ":notenbereik 
n"TAB(14)":aantal stemmen 
n“TAB(14)“:noot/rust verhoudin 


f$"TAB(14)":maak maten f$ opni 


TAB(14)":herhaal commando 
TAB(14)":edit ? (? = M,P,S) 
f$"TAB(14)":speel f$ uit ? 
TAB(14)":print deze file 
TAB(14)":verlaat PLAY 


LOCATE 9, 18:PRINT"Een maat is bv:x=CmFCmF-s7 
GimsCD 
PRINT"F1 onderbreekt spelen” 

LOCATE 24,22:PRINT"sla toets aan 
U=USRI(Z) :HY=1 


IF INKEY$="" 


THEN 4919 


CLS:GOSUB 1739: RETURN 
DEFUSRO=&HCFEG : DEFUSR1 =&HCFED 

FOR I=&HCFEG TO &HCFF8 

READ A:POKE I,A:NEXT I 

DATA 33,9,9,17,9,224,1,192,3,195,89,9, 201 
DATA 33,9,224,17,0,0,1,192,3,195,92,9, 201 


RETURN 


4.3 REMBRANDTS TOOLKIT 


Zeker is dat Rembrandt nooit van een dergelijke toolkit gedroomd kan hebben. Hij zou on- 
getwijfeld zeer verbaasd zijn geweest als hij had kunnen zien hoe helemaal zonder penseel, 
potlood of ander tekenmateriaal toch echte tekeningen gemaakt kunnen worden. Voor ons 
is dat allemaal veel gewoner. 

Dit programma biedt de mogelijkheid om met eenvoudige hulpmiddelen aardige plaatjes 
en schema's te maken. Essentieel natuurlijk is de opslag- en afdrukmogelijkheid van dit pro- 
gramma. 


WERKING 


Na het opstarten wordt gevraagd naar de naam van de tekening. Indien we een eerder ge- 
maakte tekening willen wijzigen, geven we de naam van die tekening op. Zoniet, dan geven 
we een nieuwe naam op. Druk vervolgens op de RETURN-toets. 

Nu verschijnt links op het scherm een roodgekleurd vierkant met in de linkerbovenhoek een 
pijl. Rechts naast het vierkant staat een overzicht van de functietoetsen en hun werking 


F1 : Draw 
F2 : Line 
F3 : Bloek 
F4 : Circle 
F5 : Paint 


F6 : Load 
F7 : Save 
F8 : Dump 
F9 : Clear 
F10: Quit 


Als we gebruik maken van een gewone tv of een kleurenmonitor kunnen we zien dat het 
overzicht naast het vierkant een rode kleur heeft. Als we op een van de functietoetsen druk- 
ken dan verandert de kleur van de betreffende tekst in blauw. Hieraan kunnen we zien wel 
ke mode geactiveerd is. Als we met een monochroom monitor werken is het kleurverschil 
ook te zien, hoewel minder duidelijk. 

Het is mogelijk om meer modes tegelijk te activeren. 


We zullen nu de verschillende modes bespreken. 

Zolang we nog op geen enkele functietoets gedrukt hebben is de zogenaamde dot-mode 
actief. Dit houdt in dat we met behulp van de joystick of cursortoetsen de pijl binnen het 
vierkant kunnen bewegen, zonder dat er iets verandert aan het vierkant. Er wordt dus niet 
getekend. Drukken we echter op de vuurknop of op de spatiebalk dan verschijnt op de 
plaats die door de pijl wordt aangewezen een punt op het scherm. Dot is het Engelse woord 
voor punt dus vandaar de naam dot-mode. 
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Door op F1 te drukken verandert de dot-mode in de draw-mode. Rechts van het rode vier- 
kant is de tekst F1:draw nu blauw gekleurd. In deze mode wordt de pijl overal gevolgd door 
een lijn. Ongeveer zoals we met een potlood, zonder de punt van het papier te nemen, kun- 
nen tekenen. Willen we de lijn onderbreken dan moeten we nogmaals op F1 drukken, Alle 
tekst rechts van het vierkant is dan weer rood en we zijn weer teruggekomen in de 
dot-mode. 

Met F2 activeren we de line-mode. In deze mode kunnen we lijnstukken tekenen. Dit gaat 
als volgt: op de plaats waar we een uiteinde van het lijnstuk willen hebben drukken we op 
de vuurknop of op de spatiebalk. Nu gaan we naar de plaats waar we het andere uiteinde 
van het lijnstuk willen hebben en drukken daar nogmaals op de vuurknop of spatiebalk. On- 
middellijk verschijnt het lijnstuk. Deze mode schakelen we weer uit door nogmaals op F2 
te drukken 

Dan komen we bij F3 terecht. Dit is de Block-mode. Deze stelt ons in staat rechthoeken te 
tekenen. De manier van aangeven doet denken aan die van de line-mode, We moeten weer 
twee punten opgeven door op de spatiebalk of vuurknop te drukken. Deze twee punten 
worden dan gebruikt als twee schuin tegenover elkaar liggende hoekpunten van de recht- 
hoek. De rechthoek wordt altijd opgebouwd uit horizontale en verticale lijnen. Het is dus 
zaak de twee punten niet op dezelfde hoogte te kiezen want dan is het resultaat een lijnstuk, 
een rechthoek die geen hoogte heeft 

Nadat we op de reeds vertrouwde manier F3 weer uitgeschakeld hebben kiezen we F4, 
de circle-mode. Het is nu dus mogelijk cirkels te maken. Ook dit doen we weer door op de 
gebruikelijke wijze twee punten te kiezen. Het eerste punt bepaalt het middelpunt van de 
cirkel, het tweede is een punt ergens op de rand van de cirkel. Door de afstand tussen deze 
punten te variëren kunnen we de cirkelgrootte variëren. 

Na deze mode weer uitgeschakeld te hebben komen we tenslotte bij de laatste van de echte 
tekenmodes, F5 de paint-mode. Hiermee kunnen we dus verven’. Hiertoe zetten we de 
pijlpunt in een gesloten vlak en drukken op de vuurknop of spatiebalk. Het vlak wordt nu 
wit. Op de printer zal dit later zwart zijn. Is het vlak niet goed gesloten dan zal het hele teken- 
scherm wit worden, voorzover tenminste geen gesloten vlakken daarin aanwezig zijn, deze 
blijven rood. 

Alvorens we overgaan tot de bespreking van de overige functietoetsen willen we eerst nog 
een ander onderwerp behandelen; het maken van combinaties. 

Het is mogelijk elke functie met een of meer andere te combineren. Als we bijvoorbeeld F2 
en F4 activeren, ze zijn dan allebei blauw, dan krijgen we altijd cirkels met lijnstukken tege- 
lijk. In dit geval wordt dus de straal van de cirkel in de cirkel getekend. Activeren we dan 
ook nog F3 dan wordt tegelijkertijd een rechthoek (met een diagonaal) door de cirkel ge- 
tekend 

De combinatie van F4 en F5 levert altijd ingekleurde cirkels op. Zo zijn er natuurlijk veel 
meer combinaties te maken, we laten het aan u over te bekijken welke leuk en zinvol zijn 
en welke niet. 


De functietoetsen F6 tot en met F10 kunnen vanzelfsprekend niet in combinatie gebruikt 
worden. 

Met F6 kunnen we een vorige tekening laden en er verder aan werken, of deze afdrukken, 
net wat we willen, Als we moeilijke schema's of tekeningen willen maken is het aan te beve- 
len om vaak te saven (F7). Als er dan iets mis gaat met het tekenen hebben we altijd nog 
een vorige versie om vanuit te gaan. Met F6 kunnen we die dan opnieuw laden, 

De filenaam wordt bij het opstarten gevraagd en kan tussentijds niet gewijzigd worden. 
Met F7 kan een file gesaved (opgeslagen) worden onder de bij het opstarten gegeven fi- 
lenaam. 

F8 zorgt voor een zogenaamde screendump: een afdruk van het scherm op de MSX- 
printer, bijvoorbeeld de EPSON GX-80. 
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F9 is een gevaarlijke opdracht. Clear veegt het scherm schoon. Een eventuele tekening is 
dus verdwenen als deze tenminste niet gesaved was. 

F10 tenslotte is al even gevaarlijk als F9. Quit betekent het scherm wissen en het program 
ma verlaten. Als de tekening dus niet gesaved is is deze nu verdwenen. 


We besluiten met een kort overzicht van de functietoetsen en hun werking 


F1 - Draw 
F2-Line 

F3 - Block 
F4 - Circle 
F5 - Paint 


F6 - Load 


F7 - Save 
F8 - Dump 
F9 - Clear 
F10 - Quit 


De pijl wordt overal gevolgd door een lijn. 

Tussen twee aangegeven punten wordt een lijnstuk getrokken. 

Twee aangegeven punten dienen als hoekpunten van een rechthoek. 
Twee aangegeven punten geven de straal aan van de gewenste cirkel. 
Het vlak waarin de pijlpunt staat wordt gevuld door op de vuurknop of spatie- 
balk te drukken. 

Een eerder gemaakte tekening wordt geladen. De filenaam hebben we bij 
het opstarten van het programma al opgegeven. 

De tekening wordt opgeslagen onder de bij het opstarten opgegeven naam. 
Het scherm wordt afgedrukt op een MSX-printer. 

Het scherm wordt gewist en de tekening is dus weg. 

Het scherm wordt gewist en het programma verlaten. 


Opmerkingen: 
Elke mode wordt weer uitgeschakeld door nogmaals op de betreffende functietoets te 


drukken. 


Is geen enkele mode zichtbaar geactiveerd dan is de dot-mode actief. 
De pijlpunt kan bestuurd worden door middel van een joystick en de vuurknop of door de 
cursortoetsen en de spatiebalk. 
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Programma: 


19BD * 
1091 ” |; REMBRANDTS TOOLKIT ; 
1992 ” — 

1993 * 

1494 ’ bij regel 1106 : 

1905 J=8 : Cursortoetsenbesturing 
1996 ’ J=1 : Joystick nr. 1 

1997 * J=2 : Joystick nr. 2 

1978 ’ De screendumproutine werkt 

1909 ’ alleen bij MSX-printers en 
1919 ’ de Epson GX89 met MSX-kaart 
1999 ” 

1195 ’ 

1191 * ' 
1192 ” 

1193 


1194 MAXFILES=3 

1195 S=-1:D=0:L=D:E=D:B=0:P=0: R=D 

1196 J=Z 

1197 PA=BASE( 12): CO=BASE(11) 

1198 FOR I=Z TO 8:READ DX(I),DY(I):NEXT I 

1199 DATA 0,5, D,1, 1,1, 1,9, 1,-1, B,-1, -1,-1 
„1,8, 1,1 

1119 FOR I=1 TO 19:READ F$(I):NEXT I 

1111 ON ERROR GOTO 2692 

1112 DATA “F1 : Draw”, "F2 : Line","F3 : Block”, "F 
4 : Circle”,"F5 : Paint”,"F6 : Load","F7 : Save" 
“F8 : Dump", "F9 : Clear”, "F1G: Quit” 

1113 CLS:PRINT: PRINT 

1114 PRINT"Welke tekening wilt u editen ?":PRINT: 
FILES "?????2??, pic” 


1115 PRINT:PRINT: PRINT" ‚pic 
1116 PRINTCHR$(30);: INPUT" filenaam “;FL$ 

1117 IF LEFT$(FL$, 1)="." THEN PRINT:PRINT“FOUT":G 
OTO 1115 


1118 SCREEN 2,9 

1119 A$="":FOR I=1 TO 8:READ B$:A$-A$+CHRS( VAL ( "& 
h"+B$)):NEXT I:SPRITE$S(1)=A$ 

1129 DATA ff‚cO,ad,97,88,84,82,81 

1121 OPEN “grp:" FOR OUTPUT AS #1 

1122 ON KEY GOSUB 1392,1402, 1592, 1692, 1702, 1802, 1 
972, 2002, 2102, 2292 

1123 ON STRIG GOSUB 2392, 2302, 2302, 2302, 2302 
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1124 
1125 
1126 
1199 
1290 
1201 
1202 
1203 
1254 
1295 
1256 
1297 
1208 
1299 
1300 
1391 
1372 
1303 
1394 
1395 
1306 
1399 
1490 
1401 
1402 
1403 
1494 
1495 
1496 
1497 
1499 
1590 
1591 
1592 
1593 
1504 
1595 
1506 
1597 
1599 
1695 
1691 
1692 
1693 
1694 
1695 


FOR I=1 TO 10:KEY(I) ON:NEXT I 
FOR I=@ TO 4:STRIG(I) ON:NEXT I 
GOSUB 2142 


X=X+DX(STICK(J)) : Y=Y-DY(STICK(J) ) 


IF X<1 THEN X=1 ELSE IF X>159 THEN X=159 
IF Y<1 THEN Y=1 ELSE IF Y>199 THEN Y=199 


IF D THEN PSET(X,Y), 15 
PUT SPRITE 1,(X,Y), 14,1 
GOTO 1293 


d 


’ 


\ F1 - Draw aan/uit 


D=NOT(D) 

COLOR 6+D, 5, 5 

PRESET (169,19) :PRINT#1,F$(1) 
GOSUB 2402 : RETURN 


» 
’ 


L=NOT(L) 

COLOR 6+L, 9, 9 

PRESET (169,29) :PRINT#1, F$(2) 
LL=@ 

GOSUB 2402 : RETURN 


’ 


B=NOT(B) 

COLOR 6+B, 9, 9 

PRESET (169,39) :PRINT#1, F$(3) 
BB=5 

GOSUB 2492 : RETURN 


‚ 


: F4 -— Circle aan/uit 


E=NOT(E) 
COLOR 6+E, 5, 9 
PRESET (169,40) :PRINT&1,F$(4) 
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1696 
1697 
1699 
1705 
1791 
1702 
1793 
1794 
1795 
1796 
1799 
1809 
1891 
1892 
1893 
1804 
1895 
1896 
1897 
1808 
1899 
1905 
1991 
1992 
1903 
1974 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2995 
2006 
2097 
2008 
2079 
2099 
2100 
2151 
2102 
2193 
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EE-=G 
GOSUB 2492 : RETURN 


’ 


> 


P=NOT(P) 

COLOR 6+P, 9, 3 

PRESET (169,59) :PRINT#1, F$(5) 
GOSUB 2492: RETURN 


COLOR 5,9, 


: F6 — Load tekening ï 


V7] 


PRESET (169,60) :PRINT#1, F$(6) 
BLOAD FL$,S 
COLOR 6,9, 9 
PRESET (169,60) :PRINT#1, F$(6) 
GOSUB 2196:GOSUB 2492 : RETURN 


\ F7 — Save tekening : 


COLOR 5,9, 0 

PRESET (169,70) :PRINT#1, F$(7) 
BSAVE FL$,9, 16383,5 

COLOR 6,9, 9 

PRESET (169,79): PRINT#1, F$(7) 
GOSUB 2492: RETURN 


‚ 


\ F8 — Screendump H 


COLOR 5,9, 9 

PRESET (169,89):PRINT#1, F$(8) 
OPEN “LPT: "“ FOR OUTPUT AS #2 
GOSUB 2572 

COLOR 6,9, 9 

PRESET (169,89):PRINT#1, F$(8) 
GOSUB 2492: RETURN 


LINE (9,8)-(151,191),15,B 


2194 


LINE (1,1)-(159,199),8,BF 


2195 T$="" 

2196 S=-1:D=G:L=G:E=D:B=D:P=D:R=D 

2197 COLOR 6,9, 

2198 FOR I=1 TO 19 

2109 PRESET(160, I*19):PRINT#1, F$(I) 

2119 NEXT I 

2111 GOSUB 2492: RETURN 

2199 ’ 

220D ° ne 

2291 ’ ; F19 -—- Quit programma H 

2292 ’ —-nenn 

2293 IF INKEY$<>"" THEN 2293 

2294 COLOR 15,0, 9:END 

2275 GOSUB 2472: RETURN 

2299 

2D ° 

2301 ’ | Reageer op actie-toets E 

2372 * mennen 

2393 IF S THEN PSET(X,Y), 15 

2394 IF L AND LL THEN LINE(XX,YY)-(X,Y),15 

2305 IF L AND NOT(LL) THEN XX=X:YY=Y:LL=LELSELLEN 
OT(L) 

2306 IF B AND BB THEN LINE(XX,YY)-(X,Y),15,B 

2397 IF B AND NOT(BB) THEN XX=X:YY=Y:BB=BELSEBB=N 
OT(B) 

2398 IF E AND EE THEN CIRCLE(XX, YY), SQR( (X-XX) “2+ 
(Y-YY)“2), 15 

2309 IF E AND NOT(EE) THEN XX=X:YY=Y:EE=EELSEEE=N 
OT(E) 

2313 IF P THEN PAINT(X,Y),15 

2311 RETURN 

2399 * 

2490 ’ —-mmanen-nnnmen enn 

2491 ’ ; H 

2492 ' mmm 

2493 S=NOT(D OR L 

2494 RETURN 

2499 ’ 

2595 ° ——-ennnmeee 

2591 ’ | Sereendump routine H 

2592 ° —_-mmen 

2503 FOR I=144 TO STEP -8:PRINT#2, CHR$(27); “T15 
“;CHR$(27) ; “S9192"; 

2594 FOR J=0 TO 5894 STEP 256 

2595 FOR K=@ TO 7 
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2596 A=I+J+K 

2597 BY=VPEEK(A+PAj 

2508 IF BY=0 THEN IF (VPEEK(A+CO)AND15)=15 THEN B 
Y=255 

2509 PRINT#2, CHR$(BY) ; 

2510 NEXT K:NEXT J 

2511 PRINT#2, :NEXT I 

2512 PRINT#2, 

2513 CLOSE #2 


2514 RETURN 

2599 ’ 

2699 ' —---- 
2601 ’ | Error afhandeling ' 
2602 * ‘eeens 


2693 RESUME NEXT 


4.4 SCHAAKKLOK 


Dit programma maakt uw schaakklok overbodig! Had u er nog geen dan is dit nu verhol- 
pen. Dit programma tovert een echte schaakklok op het scherm van de MSX 

Een schaakklok houdt bij hoeveel tijd iedere speler (bij het schaakspel natuurlijk) heeft zitten 
piekeren over zijn zetten. Voordat het spel begint wordt afgesproken hoeveel bedenktijd ie- 
dere speler krijgt. Gewoonlijk krijgt ieder twee en een half uur, maar bij een potje snelschaak 
kan dit ook twaalf minuten zijn 

Nadat we het RUN-commando hebben gegeven wordt naar de bedenktijd gevraagd. We 
geven deze op in uren en minuten. Vervolgens wordt naar de namen van de spelers ge- 
vraagd. 

De schaakklok verschijnt in beeld, de linkerklok is van wit, de rechter van zwart. Wit begint 
en de linkerklok loopt dus. Als wit zijn zet gedaan heeft drukt hij even op de spatiebalk. Hier- 
door wordt zijn klok stil gezet en gaat de klok van zwart lopen. Nu is zwart aan de beurt, 
voor hem geldt hetzelfde. Nadat hij gezet heeft drukt hij even op de spatiebalk om zijn klok 
stil te zetten en die van wit te starten 

Als de maximale speeltijd van een van de spelers is verstreken voor iemand mat is gezet 
heeft deze verloren, in schaaktermen: zijn vlag is gevallen. 


Programma: 


19 REM schaakklok 

29 COLOR 15,4,4 

33 KEY OFF 

47 DEFSNG A-Z 

57 “m1g1l31sg" 

69 B$="m6Z0912" 

70 PLAY A$,A$, A$ 

83 OPEN “grp:"” FOR OUTPUT AS #1 
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95 ON STRIG GOSUB 819 


155 
118 
125 
139 
149 
159 
169 
175 
189 
199 
290 
219 
229 
239 
249 
250 
260 
270 


ON INTERVAL=5@ GOSUB 350 

CLS: PRINTSPC( 13) "SCHAAKKLOK" 

LOCATE 19, 19:PRINT"even geduld aub... 
GOSUB 749’ vul arrays 

CLS: PRINTSPC( 13) "SCHAAKKLOK " 
PRINT"totale speeltijd per speler : 


PRINT 

INPUT" uren” ;UM: U=UMOD12 
INPUT" minuten” ;MM 
INPUT"naam speler wit “;W$ 
INPUT"naam speler zwart “";Z$ 
SCREEN2 


KP=1:GOSUB 449 

KP=2:GOSUB 449: GOSUB 820 

GOSUB 799’ init 

GOSUB 529’ gr wijzer 

GOSUB 579’ kl wijzer 

PSET(65,9), 1:PRINT#1, “SPEELTIJD: “STR$(UM) “: "R 


IGHT$(“Z"+MID$(STR$(MM), 2), 2) 


289 
297 
300 
319 
320 
330 
345 
350 
360 
370 
389 
397 


PSET(59, 13), 4: PRINT#1, “WIT” 
PSET(175, 13), 4: PRINT#1, "ZWART 
PSET(30, 159), 4: PRINT#&1, W$ 
PSET(165, 159), 4: PRINT#1, 28 

INTERVAL ON 

IF U>=UU AND M>=MM THEN GOSUB 193%'einde tijd 
GOTO 329 ’ hoofdlus 

STRIG(@) STOP: S=(S+1)MOD6G:GOSUB 629 

IF S=M+1 THEN GOSUB 529 

IF S=UX5+1 THEN GOSUB 570 

IF S=@ THEN M=(M+1)MOD 69:GOSUB 529 

IF M= AND S=9 THEN IB=U+1:U=(U+1)MOD12: GOSUB 


570:PLAY B$,B$, B® 


400 
413 
420 
430 
445 
455 
460 
475 
485 
495 
500 
519 
529 


SZ=(SZ+1)MOD6G 

IF SZ=0 THEN MZ=(MZ+1)MOD6@ 
GOSUB 1129 

STRIG(@) ON:RETURN 

’klok tekenen 

IF KP=1 THEN X9=64 ELSE X9=-192 
Yg=89:R=B.8 
CIRCLE( XO, YZ), 6. 3*R 

FOR I=g TO 55 STEP 5 
A=6*XRXAS(I) : B=6*XRXBC(I) 
CIRCLE(XO+B, YO+A), 1 

NEXT I 

LINE (BO+XO, YO+AG) (XO, YO), 4 
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530 


136 


A=4X*RXAS(M) : B=4*RXBC(M) 
LINE(XO, YO)-(X9+B, YO+A), 15 
AQ=zA: BJ=B 

RETURN 

LINE (X@+D9, Y5+CO) (XO, YD), 4 
A=3*RXAS(UX5) : B=3*RXBC(UX5 ) 
LINE(XO, YO)-(XO+B, YO+A), 15 
CO=A: DJ=B 

RETURN 

PLAY A$,A$,A$ 

PLAY"o6c", “o7c", “o8g" 

LINE (XO+FO, YO+EG) -(X9, YZ), 4 
A=5XRXAS(S) : B=5*RXBC(S) 
LINE(XO, YO)-(XO+B, YO+A), 15 
EQ=A: FO=B 
LINE(XO-2,YD-1)-(XO+2, YO+1),, BF 
RETURN 
AD=4XRXAS(M) : BO=4*RKBC(M) 
CO=ZKRKAS(UX5) : DI=IKRKBC(UX5 ) 
E@=5. 7*RKAS(D) :FO=5. 7XRXBC(D) 
RETURN 

DIM AS(69),BC(60) 

FOR I=9 TO 69 

D=(I-15)*, 1947197 # 
AS(I)=SIN(D) 

BC(I)=COS(D) 

NEXT I 

RETURN 

’strig 

INTERVAL STOP:STRIG(@) OFF 
MZ=9: SZ=0 

IF SS=@ THEN 865 

IF (SS=1 AND KP=2) OR (SS=2 AND KP=1) THEN 99 


IF KP=1 THEN 930 

LINE(159, 166)-(235, 170), 4, BF 
LINE(29, 166) (109, 179), 3, BF 
U2=U:M2=M: 52=5 
U=U1:M=M1:S=51 

Xg=64:GOSUB 1909 

KP=1:GOTO 995 

LINE(159, 166)-(235, 179), 3, BF 
LINE(29, 166)-(199,170), 4, BF 
U1=U:M1=M: S1=S 

U=U2: M=M2: 5=52 

Xg=192:GOSUB 1909 


987 KP=2 

995 STRIG(G) ON:RETURN 

1997 GOSUB 705 

1919 GOSUB 529:GOSUB 579:GOSUB 649 
1929 RETURN 

1930 INTERVAL OFF 

1949 SS=KP 

1959 IF SS=2 THEN 1979 

1969 PSET(49, 189), 4:GOTO 1980 
1979 PSET(169, 180), 4 

1989 PRINT#&1, “GESTOPT” 

1999 PLAY B$+"O6C" 

1199 IF PS=1 THEN 1199 ELSE PS=1 
1119 GOSUB 829:RETURN 

1129 LINE(19G, 129)-(169, 138), 4, BF 
1139 PSET (191,139), 4 

1149 PRINT#1,STR$(MZ) ": "STR$(SZ) 
1159 RETURN 


4.5 BUGGER 


Bugger is de naam van een geweldig goede programmeerhulp. Dit programma kan u een 
lijst geven van alle gebruikte variabelen met bijbehorend regelnummer. Eveneens wordt in- 
formatie over de variabelen gegeven. Zo wordt een lijstvariabele (array) afgedrukt met '(* 
achter de naam, Het programma maakt onderscheid tussen integer, string en andere varia- 
belen, precies zoals de MSX dat zou doen. Het is dus mogelijk snel te zien of een bepaalde 
variabele gebruikt is of nog gebruikt mag worden. Wordt een variabele slechts in één regel 
gebruikt, dan krijgt deze variabele kennelijk alleen een waarde en wordt verder niet ge- 
bruikt. 

Dit programma kan echter nog meer, het kan u een lijst geven van alle sprongen die in het 
programma gedaan worden. Deze lijst bevat alle regelnummers waar naartoe gesprongen 
wordt en de regelnummers waar vandaan die sprong kwam. Dit is heel handig bij minder 
gestructureerde programma's. Of om snel inzicht te krijgen in de werking van een program 
ma dat door een ander geschreven is. 


WERKING 


Nadat we het RUN-commando hebben gegeven wordt gevraagd naar de naam van de file 
die onderzocht moet worden. De file moet op een diskette staan en mag niet in ASCII- 
formaat gesaved zijn. 

Tijdens het inlezen van de te onderzoeken file wordt steeds het regelnummer afgedrukt 
waar Bugger mee bezig is, evenals het hoeveelste byte is ingelezen. Wordt een variabele 
gevonden dan wordt de naam ervan ook afgedrukt 

Na het inlezen van de file wordt gevraagd hoe de gegevens uitgevoerd moeten worden: 


(S)cherm, (P)rinter of (E)inde 
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Ss 

De gegevens verschijnen op het beeldscherm. Als het scherm vol is wacht het programma 
tot de spatiebalk wordt ingedrukt voordat verder wordt gegaan met het uitvoeren naar het 
scherm. Als we op de ESC-toets drukken wordt de uitvoer afgebroken en verschijnt boven- 
staande vraag weer op het scherm. 


P 
De gegevens worden afgedrukt op de printer. Deze moet aangesloten zijn, anders „hangt” 
de computer. De uitvoer kan niet afgebroken worden. 


E 

Het programma wordt beëindigd. Als laatste wordt nog gevraagd of de laatst onderzochte 
file moet worden ingelezen. Deze kan dan worden gewijzigd of gestart. Zoniet dan wordt 
het geheugen gewist en Bugger gestopt. 


Als we hier onze keuze hebben bepaald verschijnt de volgende vraag betreffende de uit- 
voer op het scherm: 


act, (OD en Djek 


Vv 
Alleen de variabelenlijst wordt afgedrukt 


R 
Alleen de sprongenlijst wordt afgedrukt. 


B 
Beide lijsten worden afgedrukt 


Opmerking: 


Een onvolkomenheid in het programma is dat AS in bijvoorbeeld de opdracht: OPEN 
“naam” FOR INPUT AS#1 niet als BASIC-statement maar als variabele herkend wordt. 


Programma: 


15 REMOOODOIODOOD2 2091 ODDDDDDDOODD 2 AGBOOBOODODDID 
vovrvvorororooooppdooreeeeCeeeeeeeeeeeCeCEeCEECCH 
POODIPIODDOIDDDODDIODODODDDDDDDDIODDDDOODHEODEDDD 
ESASDIIDODDIIDDDIDODEDIDDODDDDDDSDEEODDOEDDDEDDD 
GOPDOPDODIDIODIDDOIDDDODDDDDE 

20 REMOGGOPIDODDDADDDDDIDODDDDODDDDDEDDODD 1 

35 KEYOFF : COLOR15, 1, 1: SCREENS: CLEAR4900 

49 DIM VR$(350,1),RV$(359, 1) 

he nand =256*ASC(LEFT$(D$, 1) ) +ASC(RIGHT$(D$ 
67 DEFFNZ$(X$)=STR$(FNDR(X$) ) 

7 ON ERROR GOTO 319 

85 PRINT: INPUT “programmanaam: ";N$ 
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99 IF N$="" THEN CLS:FILES:GOTO8G 

109 OPEN N$ AS #1 LEN=1 

119 FIELD #1,1 AS BY$ 

120 GET 1:D$=BY$:IF ASC(D$)<>255 THEN PRINT:PRINT 
“Dit is geen programma!” :CLOSE:GOTO8G 

139 LF=LOF(1):PT=32769! 

145 GOSUB 449:’ inlezen 

159 CLOSE 

169 CLS:WIDTH4G 

175 LOCATEG, B: PRINT" *ktkkkkskktkkk UITVOER kkk 
hldk 

189 LOCATE2, 19:PRINT"(S)cherm, (P)rinter of (E)in 
de “;:C$=INPUT$(1):S=-1 

199 IF C$="p" THEN S=9 

290 IF C$="e" THEN 389 

219 LOCATE2, 13:PRINT"(V)arlijst, (R)egellijst of 
(Beide “";:C$= INEUESCHDE VT=0:LT=G 

229 IF C 
239 IF C 
249 IF C$="b" THEN LT=-1:VT=-1 

259 IF VT THEN GOSUB 1959 

269 IF LT THEN GOSUB 1179 

279 GOTO 165 

289 LOCATE1, 23:PRINT"stop=<ESC> door=<SPATIE>";: 
C$=INPUT$(1) 

299 IF C$=" " THEN RETURN 

307 IF C$=CHR$(27) THEN ERROR 191 

319 ’'error 

329 IF ERR=101 THEN RESUME 169 

339 IF ERR=109 THEN 350 

349 ON ERROR GOTOG: END 

353 LOCATE2, 16:PRINT"Einde van regel is niet gevo 
nden 

369 PRINT:PRINT" in byte";LOC(1);"“van de file” 
379 PRINT:PRINT" Sla een toets aan”:C$=INPUT$(1) 
: RUN 

389 CLS:PRINT:PRINT" programma: “;N$ 

399 PRINT:PRINT"inlezen ? (y/n) Sie 

400 C$-INPUT$(1):IF C$<>“n” THEN CLS: LOAD N$ 

413 CLS:COLOR15, 4, 4: KEYON : NEW 

429 END 

430 REM inlezen programma 

449 SCREENS: WIDTH4G : PRINT" kts INLEZEN F 
ILE kkk 

45% LOCATE 4,8:PRINT" programma: “;N$ 

469 LOCATE 4,10:PRINT"file is";LF; "bytes lang. 
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479 LOCATE 4,12:PRINT"regelnummer: * 

489 LOCATE 4,14:PRINT "byte : ” 

497 GET1:P=ASC(BY$):GET1:P=256*ASC(BY$)+P 

590 LOCATE11, 14: PRINTLOC(1); STRING$(25, 32) 

519 IF P=@ THEN RETURN 

520 GET1:R$=BY$:GET1:R$=BY$+R$ 

530 LOCATE 17, 12:PRINTFNDR(R$) ; 

549 LR=P-PT-5:PT=P:Q2$="x":Q18="*": GOSUB580 

550 GET1:IF BY$<>CHR$(@) THEN ERROR 190 

565 GOTO 499 

579 ’ lezen regel 

589 IF LR=0 THEN RETURN 

599 GET1:LR=LR-1 

697 P=PEEK(&H8OZ6+ASC(BY$)-6*(ASC(BY$)>218) )-48 
619 IF P>9 THEN 659 

629 LR=LR-P 

639 IF P>@ THEN GET1,LOC(1)+P 

649 GOTO58G 

657 ON P-16 GOTO 675,687, 7105, 859, 900 

669 GOTO58G 

675 P=LR:GOTO620 

680 IFLR=@ THEN RETURN 

697 GET1:LR=LR-1:IF BY$<>CHR$(34) THEN 680 

790 GOTO5S8O 

719 A$=BY$ 

720 IF LR=0 THEN 750 

730 GET1:LR=LR-1:IF INSTR( "ABCDEFGHIJKLMNOPQRSTUV 
WXYZ123456789D!#SX([]“,BY$) THEN A$-A$+BY$: IF BY$ 
="(" THEN 759 ELSE 720 

749 GET1,LOC(1)-1:LR=LR+1 

750 IF INSTR(QIS, "*"+A$+"*X")<>Z THEN 580 ELSE Q1$ 
=QISHASH "XK" 

769 S1=0:S2=MV:LOCATE11, 14: PRINTSTRINGS$(25, 32) : LO 
CATE11, 14: PRINTLOC(1);" “;A$; 

770 P=(S1+S2)\2:IF P=S2 THEN 820 

789 IF VR$(P,G)<A$ THEN S2=P:GOTO 775 

790 IF VR$(P,G)>A$ THEN S1=P+1:GOTO 774 

820 IF RIGHT$(VR$(P, 1),LEN(R$))=R$ THEN 580 

819 VR$(P,1)=VR$(P, 1)+R$: GOTO585 

829 S2=MV:MV=MV+1 

830 IF S2>P THEN VR$(S2,0)=VR$(S2-1,0):VR$(S2, 1)= 
VR$(S2-1,1):S2=52-1:GOTO 830 

849 VR$(P,G)=A$: VR$(P, 1) =R$: GOTO58G 

859 VA%-0 

863 IF LR=@ THEN RETURN 

87% GET1:LR=LR-1:IF BY$=CHR$(34) THEN VQX=NOT VQ% 
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889 IF VQ% OR BY$<>“:" THEN 860 

895 GOTO5BG 

WD IF LR=O THEN RETURN 

910 GETI:LR=LR-1:IF BY$=" " OR BY$="," THEN 900 
920 IF BY$<>CHR$(14) THEN GET1,LOC(1)-1:LR=LR+1:G 
OTO580 

937 GET1:LR-LR-2:A$-BY$:GET1: A$-BY$+A$ 

949 IF INSTR(Q2S, “*"+A$+"*")<>Z THEN 909 ELSE Q2$ 
=Q2E+AEH "XK" 

950 S1=0:S2=MR 

969 IFS2<S1 THEN 1920 

979 P=(S1+S2)\2:IF P=52 THEN 1929 

989 IF RV$(P,O)<A$ THEN S2=P:GOTO 979 

999 IF RV$(P,G)>A$S THEN S1=P+1:GOTO 979 

1000 IF RIGHTS(RV$(P,1),LEN(R$))=R$ THEN 900 

1919 RV$(P, 1)=RVS(P, 1) +R$: GOTO9GD 

1929 S2=MR:MR=MR+1 

1939 IF S2>P THEN RV$(S2,0)=RV$(S2-1,0):RV$(S2,1) 
=RV$(S2-1,1):52=52-1:GOTO 1930 

1949 RV$(P,Z)=A$:RV$(P, 1) =R$: GOTOIGG 

1959 IF S THEN 198% 

1965 LPRINT:LPRINT"VARIABELENLIJST VAN PROGRAMMA 
“iN$:LPRINT 

1975 FOR A=MV-1 TO @ STEP-1:LPRINTVR$(A,Z);" “;:F 
OR C=1 TO LEN(VR$(A,1)) STEP2:LPRINT FNZ$(MID$(VR 
$(A,1),C,2));:NEXT C:LPRINT:NEXT A:LPRINT:LPRINT: 
RETURN 

1985 A=MV 

1999 CLS: PRINT" *%tkrrktrr VARIABELENLIJST kkk 
vore 

110% A=A-1:IF A<@ THEN GOSUB289: RETURN 

1119 B=LEN(VR$(A,O)) +2: PRINT: PRINTVR$(A, @) ; : LOCAT 
E B,CSRLIN 

1129 FOR C=1 TO LEN(VR$(A,1)) STEP2 

1139 PRINTFNZS(MID$S(VR$(A, 1),C,2));:IF POS(1)>32 
THEN PRINT:LOCATE B,CSRLIN 

1149 NEXT C:PRINT 

1159 IF CSRLIN>18 THEN GOSUB289:GOTO 109% 

1169 GOTO1109 

1179 IF S THEN 1200 

1189 LPRINT:LPRINT"REGELSPRONGENLIJST VAN PROGRAM 
MA “;N$:LPRINT 

1199 FOR A=MR-1 TO @ STEP-1:LPRINTFN Z$(RV$(A,Z) ) 
s!%";:FOR C=1 TO LEN(RV$(A, 1)) STEP2:LPRINT FNZ$( 
MID$(RV$(A, 1),C,2)); :NEXT C:LPRINT:NEXT A:LPRINT: 
LPRINT : RETURN 
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1209 A=MR 

1219 CLS: PRINT" *ttrtkek REGELSPRONGENLIJST #tok 
Ak 

1229 A=A-1:IF A<@ THEN GOSUB289: RETURN 

1230 B=LEN(STRS$(FNDR(RV$(A, 0) ))) +1: PRINT: PRINTFNZ 
S(RVS(A,Z));"< “;:LOCATE B, CSRLIN 

1249 FOR C=1 TO LEN(RV$(A,1)) STEP2 

1250 PRINTFNZ$(MIDS(RV$(A,1),C,2));:IF POS(1)>32 

THEN PRINT:LOCATE B,CSRLIN 

1260 NEXT C:PRINT 

1270 IF CSRLIN>19 THEN GOSUB289:GOTO 1210 

1289 GOTO1229 


4.6 CHECKSUMGENERATOR 


Een checksumgenerator is een programma dat per programmaregel een getal genereert 
dat direct gekoppeld is aan de inhoud van die regel. Is de inhoud van de regel anders dan 
zal ook de checksum anders zijn. Zo is het mogelijk aan de hand van de uitkomsten van 
de checksumgenerator na te gaan of het programma goed is ingetoetst en zoniet, waar dan 
de fouten zitten. 

Het is dan natuurlijk wel noodzakelijk te weten wat de checksums (controlegetallen) van de 
originele versie waren, 

In dit boek hebben wij de tekstverwerker en de database voorzien van de checksums per 
regel, zoals die door het onderstaande checksumprogramma gegenereerd zijn. Het is dus 
eenvoudig te controleren of alles goed 1s ingetoetst. 

Deze checksumgenerator neemt in de checksum de regelnummers mee. Dus een ander 
regelnummer levert ook een andere checksum op. 

Verwisselde letters worden ook ontdekt. Dus da levert een andere checksum dan ad. 


WERKWIJZE 


De file waarvan de checksums bepaald moeten worden, moet eerst als ASCII gesaved wor- 
den. Dit doen we als volgt: 


SAVE FILENAAM A 


Hierna moet het programma „checksum'' geladen worden. Na het geven van het RUN- 
commando komt het programma met de vraag: „filenaam'’. Nu moet de naam van de zo- 
juist gemaakte ASCII-file ingetypt worden. 


Opmerking: 

Standaard wordt diskdrive A: genomen, indien van DiskBASIC gebruik gemaakt wordt. 
Wordt van CassetteBASIC gebruik gemaakt, wordt natuurlijk de cassette als standaard 
randapparaat genomen. 
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Als we nu vanuit DiskBASIC een programma van cassette willen gebruiken dan moeten we 
voor de filenaam CAS: intypen, dus: 


CAS:filenaam.asc 


Vervolgens verschijnt de vraag „Printer? op het scherm. Hierop kan met j of n geantwoord 
worden, beide gevolgd door RETURN. Als met j(a) geantwoord wordt verschijnt alle uitvoer 
zowel op het scherm als op de aangesloten printer. Wordt met n(ee) geantwoord dan ver- 
schijnt alles alleen op het scherm. 


Het programma berekent twee checksums: 


een blokchecksum en 
een regelchecksum 


Door deze beide checksums is het eenvoudig een programma op fouten te controleren en 
te achterhalen waar de fout is opgetreden. 


Bij een aantal programma's in dit boek hebben we het resultaat van het checksumprogram- 
ma afgedrukt. Dus per programmaregel is een checksum gegeven. Let wel, ook het regel- 
nummer wordt meegenomen in deze checksum. Het is dus zaak exact dezelfde nummering 
aan te houden. 

Onder de listing zien we de regelnummers met hun checksum. Als we nu het ingetypte pro- 
gramma op bovenstaande manier door het checksumprogramma halen, krijgen we als we 
geen typfouten gemaakt hebben, dezelfde checksums als afgedrukt in het boek. 

Klopt één van de getallen niet met het getal in het boek, dan hebben we een typfout in die 
regel gemaakt. 


Opmerking: 

Natuurlijk is het niet mogelijk aan de hand van checksums altijd alle typfouten uit een pro- 
gramma te halen. Het blijft mogelijk dat typfouten optreden die niet ontdekt worden, omdat 
toevallig toch dezelfde checksum verkregen wordt. Deze kans is echter uiterst klein omdat 
regel- en blokchecksum onafhankelijk van elkaar bepaald worden. 


Programma: 


1D "ARA ROK 
29 '*k Checksumgenerator VIG * 
39 '*X Voor MSX. Door J.Ribberink** 
4D "AOK 
57 CLEAR 4000 : MAXFILES=2 


65 SW=39 PW=6 : GR=16 : KK=D : KP=@ 
70 A$="a" : WIDTH(SW+1) 

BE "KAAK 

IW XX Gegevensinvoer hl 


195 * AAR HK 
119 CLS : LOCATE 7,5 
129 PRINT" CHECKSUM-GENERATOR" 
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139 
145 
159 
169 
170 
189 
197 
203 
212 
229 
vj 

230 


B$= 


240 
250 
260 
270 
289 
290 
300 
319 
320 
330 
219 
340 
359 
369 
37% 
389 
390 
400 
410 
420 
430 
449 
450 
460 
470 
480 
490 
500 
518 
520 


530 
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LOCATE 7,19 : LINEINPUT"Filenaam ? “;F$ 
LOCATE 7,12 : INPUT"Printer";A$ 

IF A$="j" THEN PR=-1 ELSE PR=O 

CLS : IF PR THEN LPRINT"checksum van “;F$ 
rk dk 

‘xx Hoofdprogramma kk 
tekkel 

OPEN F$ FOR INPUT AS #2 

SUM=G : GTL=-1 : B$="" 

IF NOT EOF(2) THEN A=ASC( INPUT$(1, #2) )ELSE 34 


IF GTL THEN GTL=(A>47 AND A<58) : IF GTL THEN 
B$+CHR$(A) 

IF A=32 THEN 229 

IF A=13 THEN 309 

SUM=SUM42+A : SSUM=SSUM/2+A 

IF SSUM-INT(SSUM) THEN SSUM=INT(SSUM)+32768 ! 
IF SUM>65535! THEN SUM=SUM-65535! : GOTO 289 
GOTO 229 

B$=RIGHT$(SPACES(4)+B$, 5) 

K=K+1l : M=l : GOSUB 409 

IF K>=GR THEN K=J : M=2 : GOSUB 400 : SSUM=0 


IF NOT EOF(2) THEN A=ASC(INPUT$(1,#2)): GOTO 
CLOSE #2 

IF K<>@ THEN M=2 : GOSUB 400 

END 


B ttetttek de etek she hehehehe hdd 

'xKk Druk af op scherm/printer ** 
kkk kkk tekokekehek kkk khad 
PA=SW-11 : OPEN"CRT:" FOR OUTPUT AS #1 
ON M GOSUB 509,579 : CLOSE #1 

IF NOT PR THEN 469 ELSE KS=KK : KK=KP 
PA=PW-11 : OPEN"1pt:"” FOR OUTPUT AS #1 


ON M GOSUB 599,579 : CLOSE #1 
KP=KK : KK=KS 

RETURN 
ok 
'** Maak afdruk kk 


"ttr 

IF KK>PA THEN KK=g : PRINT #1," 

KK=KK+11 : PRINT#1,LEFT$(B®, 5); ": “; 
PRINT#1,RIGHTS(STRINGS(3, “@")+HEXS(SUM), 4) ; * 


RETURN 


540 
550 
569 
570 
70 

580 
597 
695 
„4) 
615 


nr RA ROK 
’*X Druk blokchecksum af ad 
etekettktkekkketeteketetk dekte hhh Sa hted 


IF SSUM>65535 ! 


THEN SSUM=SSUM-65536 ! 


IF KK>PA-9 THEN PRINT#1, "" : KK=g 
PRINT #1,SPACES(PA-10-KK); “blok-checksum : “; 


PRINT #1,“ 
KK=D : 


RETURN 


: GOTO 5 


“;RIGHTS(STRINGS$(3, "0" ) +HEX$(SSUM) 
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5 SIMULATIE 


5.1 INLEIDING 


De kracht van het simuleren van processen op computersystemen wordt door steeds meer 
wetenschappers ontdekt. Immers, door het wijzigen van het model of het variëren van de 
parameters kan men onderzoeken hoe een proces zich onder verschillende omstandighe- 
den gedraagt, zonder dat daarvoor ingewikkelde en kostbare proefopstellingen nodig zijn. 
In dit hoofdstuk presenteren we twee simulatieprogramma's. Het eerste, een programma 
voor analoge simulatie, is gebaseerd op het THTSIM-programma, een algemeen simulatie- 
programma dat op de Technische Hogeschool Twente werd ontwikkeld. Uitgebreide ver- 
sies van het THTSIM programma zijn onder meer onder de naam TUTSIM in de handel 
gebracht. 

Het tweede programma is een programma voor digitale simulatie, ontwikkeld door Chris Ba- 
ten, een student aan de TH Twente. Met het programma kunnen zogenaamde combinatori- 
sche digitale schakelingen worden gesimuleerd. 

Karakteristiek voor beide programma's is dat een model wordt opgebouwd met behulp van 
“blokjes” die specifieke functies voorstellen. leder blokje heeft steeds één uitgang, terwijl 
het aantal ingangen kan variëren. 

Om tot simulatie van een bepaald systeem te komen, hanteren we de volgende werkwijze: 


bepaal een blokschema voor het te simuleren systeem 
-_voer de structuur van het model in en geef de parameters aan 
-_ voer de gewenste ''simulatie-runs”' uit. 
We zullen voor beide programma's de gehele procedure aan de hand van een concreet 
voorbeeld toelichten 
5.2 ANALOGE SIMULATIE 


Het analoge simulatieprogramma leent zich uitstekend voor het simuleren van zeer uiteenlo- 
pende dynamische processen. Niet alleen mechanische systemen kunnen worden gesimu- 
leerd, maar ook chemische, biologische en vele andere. 

5.2.1 DE BOUWSTENEN 


Om een zogenaamd simulatienetwerk van een bepaald systeem op te zetten, mogen we 
de volgende functionele eenheden gebruiken: 
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OPTELLER (SUMMATOR) 


De „opteller" heeft twee ingangssignalen en één uitgangssignaal; het uitgangssignaal is 
per definitie de som van beide ingangssignalen. 


X 
1 + Xa 


X 


We tekenen de opteller als een blokje met 2 ingangen en 1 uitgang. Binnen het blokje plaat- 
sen we de naam SUM om de functie „opteller" aan te geven. 


INTEGRATOR 


De integrator draagt als kenmerk dat het uitgangssignaal de integraal is van het ingangssig- 
naal plus de zogenaamde beginwaarde. We zullen straks zien dat integratoren een grote 
rol spelen bij het simuleren van processen die door differentiaalvergelijkingen worden be- 
schreven. 


ais 


Merk op dat hier als ingangssignaal de afgeleide van het uitgangssignaal is aangegeven. 
De reden.hangt samen met het feit dat we doorgaans met differentiaalvergelijkingen te ma- 
ken hebben waar deze afgeleiden als zodanig in genoteerd zijn. Aan de hand van het straks 
te bespreken voorbeeld zal dit nog wel duidelijker worden. 


VERSTERKINGSFACTOR (GAIN) 
Deze functionele eenheid draagt als kenmerk dat het uitgangssignaal steeds overeenkomt 


met het ingangssignaal vermenigvuldigd met een bepaalde constante. Deze constante dui- 
den we ook wel eens aan met „gain factor’, „versterkingstactor” of „proportionele factor’ 
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VERMENIGVULDIGER (MULTIPLIER) 


We hebben hier wederom te maken met een blok met 2 ingangssignalen; het uitgangssig- 
naal is nu het product van beide ingangssignalen. 


et xx 


Merk op dat we met dit blokje ook eenvoudig het kwadraat van een zekere waarde kunnen 
bepalen. Het volgende schema toont de oplossing 


KX 
TT] vu FS 


X 


We zullen straks zien hoe we deze situatie door een speciale vorm van noteren kunnen 
aangeven. 


DELER (DIVIDER) 


Deze eenheid bepaalt het quotiënt van twee ingangssignalen: 
Á XX, 
x = 


Een eenheid die veel in simulatieschema's wordt gebruikt en wel om bepaalde vaste waar- 
den (constanten) aan te geven. We hebben hier te maken met een blok dat geen ingang 


heeft. 
Pp 
- 


De parameter p bepaalt de constante waarde van het uitgangssignaal 


CONSTANTE 
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PULS 


De volgende bouwsteen dient om het gedrag van een systeem als resultaat van bepaalde 
variaties in tijd te kunnen bestuderen. Dit blok genereert een puls met amplitude 1 en wel 
tussen de aangegeven momenten T1 en T2. De amplitude van de puls kan men uiteraard 
eenvoudig met een GAl-functie instellen. 


Door een aantal van deze PLS-blokken met daaraan gekoppelde GAl-blokken parallel te 
plaatsen waarbij de som uiteindelijk door een aantal SUM-blokken wordt verkregen kunnen 
we trouwens allerlei variaties beschrijven. 


TĲD (TIME) 


De belangrijkste grootheid bij allerlei simulaties is de tijdfunctie. Deze wordt steeds gesimu- 
leerd met een functie waarvan de uitgang lineair toeneemt. 


De mate waarin de tijd toeneemt en de momenten waarop we de uitgangswaarden van de 
verschillende blokken kunnen bestuderen, worden aan de hand van nog te bespreken 
commando's ingesteld 

SIN, COS EN EXP 


Deze blokken zijn beschikbaar om de bekende functies sinus, cosinus en exponent (e- 
macht) van een ingangssignaal te bepalen. 
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5.2.2 EEN UITGEWERKT VOORBEELD 


Om te illustreren hoe met deze elementaire blokken het gedrag van bepaalde systemen kan 
worden gesimuleerd beschouwen we een massa-veer-demper systeem. 
De demonstratie bestaat uit de volgende drie fasen: 


1 


2. 
3. 


Tonen hoe men op grond van de gegeven differentiaalvergelijking tot een simulatiesche- 
ma komt, waarin van de bovengenoemde elementaire functies gebruik wordt gemaakt. 
Tonen hoe een dergelijk schema op de computer kan worden ingevoerd waarbij dan 
gebruik wordt gemaakt van het simulatie-programma. 

Het daadwerkelijk werken met het simulatie-programma, kortom het uitvoeren van con- 
crete simulaties. 


Ad 1.Opstellen van het simulatieschema. 


We gaan als voorbeeld van het volgende mechanische massa-veer-demper systeem uit: 


externe kracht F (t) 


massa m 


veer K 


x(t) = positie op het tijdstip t 


Als F(t) de kracht is die op deze massa werkt dan zal het dynamische evenwicht worden 
bepaald door de volgende reactiekrachten. 
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massatraagheidskracht: M 


ex 
dt 


dx 
demping: D dt 


veerkracht: K x 


De volgende vergelijking geldt: 


2 
uE ro® 


+Kx e= F 
de dt a 0 


We merken hierbij op dat deze vergelijking met een differentiaalvergelijking overeenkomt 
en een dergelijke vergelijking kan dan, mits F(t) niet al te bizarre vormen aanneemt, analy- 
tisch worden opgelost. Bij het werken met het simulatieprogramma hoeven we echter niet 
naar zo'n analytische oplossing te zoaken; we zullen de vergelijking als het ware met onze 
elementaire blokjes nabouwen. Het aardige is dan dat we om tot een bepaalde oplossing 
te komen (en wel de oplossing die behoort bij een bepaalde Ft). bijvoorbeeld een puls) 
geen verdere wiskundige kennis nodig hebben! 


Om tot het juiste simulatieschema te komen, herschrijven we de gegeven vergelijking eerst 
zodanig dat de hoogste afgeleide links van het gelijkteken komt te staan. Voor de gegeven 
vergelijking leidt dit tot: 


ex FO-DE- Kx 


de M 


Merk op dat hier een gelijkheid staat en wel tussen de tweede afgeleide van x en de som 
van een aantal grootheden waarin o.a. de afgeleide van x en x zelf voorkomt. 
Bij het simulatieschema zullen we allereerst van de volgende struktuur uitgaan: 


beginsnelheid beginpositie 


De „truc is nu dat we uitgaande van de uitgangen van beide integratoren het rechterdeel 
van de zojuist gegeven vergelijking nabouwen. Tenslotte zullen we het zo verkregen net- 
werk verbinden met de ingang van de eerste integrator; de differentiaalvergelijking stelt im- 
mers dat de tweede afgeleide gelijk is aan het gedeelte rechts van het gelijkteken. 

Een en ander klinkt op dit moment wellicht nog wat moeilijk… we zullen echter zien hoe een- 
voudig alles in z'n werk gaat. 


Aan de uitgangen van beide integratoren verbinden we twee GAI-blokken om zo de volgen- 
de grootheden te bepalen: 
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Met behulp van een SUM-functie kunnen we deze beide grootheden optellen. Dit resultaat 
moet wederom met behulp van een SUM-functie worden opgeteld en wel bij de functie F(t). 
Als functie F(t) zullen we als voorbeeld een puls-functie beschouwen. 

Het uiteindelijk resultaat moet gedeeld worden door M of, dat is het zelfde, vermenigvuldigd 
met 1/M. Hiervoor gebruiken we wederom de GAl-functie. 

Zo verkrijgen we tenslotte het volgende schema 


beginsnelheid beginpositie 


schakelaar. _d®% 


mek Ea 
dx 
Fty-D EK 
(Ft) dt x) 


Als de schakelaar gesloten wordt en F(t) geeft inderdaad een pulsvormig signaal af dan zal 
de uitgang van de tweede integrator de positie van ons massa-veer-demper systeem 
weergeven. 
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Merk nogmaals op dat de differentiaalvergelijking niet wordt opgelost maar als het ware met 
blokjes wordt nagebouwd. 

Merk tenslotte op dat we ieder blok nu genummerd hebben; het nummer van zo'n blok stelt 
als het ware het identiteitsnummer voor. We zullen zo dadelijk zien waarvoor dit nummer 
gebruikt wordt, 


Ad 2. Notatie en invoer van het simulatieschema 


Om de wijze van notatie goed te kunnen doorzien bedenken we dat ieder blok maar één 
uitgang heeft en tevens dat ieder blok ook één uniek nummer heeft gekregen. 

Zo wordt ieder blok als onderdeel van het totale schema voorgesteld door de volgende 
notatie: 


bloknummer; type; ingangen 


Blok 5 is bijvoorbeeld een SUM en de beide ingangen zijn de uitgangen van de blokken 
3 en 4. Zo wordt blok 5 als volgt aangegeven 


5;SUM:3:4 
Ziezo, gewapend met deze kennis kunnen we nagaan hoe de hele struktuur moet worden 
ingevoerd. We gaan er van uit dat ons simulatieprogramma in het geheugen van de compu- 
ter is geplaatst 
Na het RUN-commando verschijnt de vraag: 

Moet data ingelezen worden? 


Omdat we nog niet eerder een struktuur hebben ingevoerd en dus ook nog geen struktuur 
op diskette hebben gesaved, drukken we alleen op ENTER. 

Dan verschijnt de term STRUKTUUR ten teken dat nu de struktuur, d.w.z. het simulatiesche- 
ma ingevoerd moet worden. Vervolgens typen we alle blokken in, de volgorde maakt daar- 
bij niet uit. Een bloknummer dat fout wordt ingevoerd kan daarna gewoon opnieuw 
ingevoerd worden. Als het laatste blok is ingevoerd toetsen we nogmaals op de ENTER- 
toets ten teken dat het volledige schema is ingevoerd. 


Voor het voorbeeld. 


STRUKTUUR 
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Hierna toont de computer de term PARAMETERS ten teken dat nu de parameters moeten 
worden ingevoerd. Hierbij wordt steeds de volgende notatie aangehouden: 


bloknummer; parameters 


Voor het voorbeeld stellen we als beginvoorwaarde dat de beginuitwijking en de beginsnel- 
heid 0 zijn; dit houdt in dat de parameters van beide integratoren gelijk aan O zijn, Voor de 
overige parameters worden de volgende waarden gekozen: K = 1,D = 0.1enM = 02 
ergo 1/M = 5. Als parameters voor de puls nemen we 0 (beginpunt) en 1 s (eindpunt). 
Zo worden uiteindelijk de volgende parameters ingetoetst: 


Na het invoeren van de laatste waarde wordt wederom op de ENTER-toets gedrukt ten te- 
ken dat alle parameters zijn ingevoerd. 

Op dit moment is de volledige struktuur ingevoerd. We dienen de computer nu nog op te 
geven welke grootheid we geplot willen hebben en ook binnen welk interval, De computer 
vraagt daartoe eerst PLOTBLOCKS en we voeren in 2 en 6, we willen immers de uitwijking 
(blok 2) en de puls (blok 6) als functie van de tijd zien 


PLOTBLOCKS 
2;6 


Vervolgens vraagt de computer om de PLOTRANGE m.a.w. om een minimale en maximale 
waarde waarbinnen de gevraagde grootheden zullen worden geplot. Deze minimale en ma- 
ximale waarde worden gewoonlijk proefondervindelijk bepaald. Liggen ze te ver uiteen dan 
zien we als resultaat een vrijwel rechte lijn. Zijn ze te klein dan zal de plotter zoals dat heet 
„in de verzadiging lopen (vastlopen)'’. We voeren min of meer arbitrair als minimale waarde 
1.2 en als maximale waarde 1.7 in, 


PLOTRANGE 
=1.2;1.7 


Als laatste gegeven vraagt de computer om de zogenaamde timing-gegevens. Deze gege- 
vens omvatten een tweetal waarden: de eerste waarde geeft de stapjes delta-t aan waar- 
voor het systeem wordt doorgerekend en de tweede waarde bevat de eindtijd voor de 
betreffende simulatie. Als delta-t kiezen we 0.045 en als eindtijd 10 s. 
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TIMING 
T: ? 9.04;19;2 


Ad 3.De feitelijke simulatie 


Op dit moment kan de feitelijke simulatie beginnen. We beschikken daartoe over een aantal 
commando's nl 


Cs 
CP 
CB 
CR 
CT 
SA 
SD 
ST 

HD 
HT 
PR 
WR 
RE 

H 

E 


verander struktuur 
verander parameters 
verander plotblocks 
verander plotrange 
verander timing 
opstarten 

Graf. uitvoer (scherm) 
tabel uitvoer (scherm) 
Graf. uitvoer (printer) 
tabel uitvoer (printer) 
print data 

schrijf data naar diskette 
lees data van diskette 
Help 

einde 


We geven ter controle nu eerst een PR-commando. Dat levert het volgende resultaat: 


Struktuur Parameters 
1 INT 8 
2 INT 1 
3 GAI 1 
4 _GAI 2 
5 SUM 3 4 
6 PLS 8 1 
7 SUM 5 6 
8 GAI Á 5 
Output blocks : 2 6 


Max. Amplitude : 1.7 
Min. amplitude :-1.2 
Total time : 19 sec 
Stapgrootte SD : .04 sec 
Stapgrootte ST : 2 sec 


Commando: ? 
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Alles blijkt te kloppen. We kunnen nu gaan „tekenen’. We geven het commando SD en 
krijgen de volgende uitvoer 


if 


he 


Met dit programma kunnen we een veelheid van problemen en processen simuleren. Dit 
voorbeeld is één van de vele mogelijkheden. 


Programma: 


19 * kk MSXSIM *** 

23 CLEAR 1990:WIDTH 39 

39 KEY OFF:DEFSNG A-Z 

47 ON ERROR GOTO 4950 

57 MA=350:DIM A(MA,4),P(4),B(MA),S(MA),FX(19), FFX 
(19) ,RC(18),RL(3) 

65 H$=STRING$(4, 194) +CHR$(197) : HL$=CHR$( 195) 

70 V$=CHR$(13)+CHR$(195) : VL$=CHR$E( 195) 

89 FOR I=1 TO 16:HL$=HL$+H$: NEXT 

9 FOR I=1 TO 23:VL$=VL$+V$: NEXT 

19% HL$=LEFT$(HL$, 79) 

119 C$="TIMCONPLSINTGAIRELFNCADLS INCOSEXPSUMSUBMU 
LDIV" 

129 D$="222333433334444" : S$-SPACES( 29) 

139 CLS: INPUT“Moet de data ingelezen worden (j/n) 
“;A$:GOSUB 1840 

149 CLS:IF A$="J" THEN GOSUB 2269:GOTO 249 

159 E=0:GOSUB 659 ’ struktuur 

169 GOSUB 1929’ sorteer 

179 GOSUB 989 ’ parameters 

189 GOSUB 1299’ plotblocks 


199 GOSUB 1339’ plotrange 

200 GOSUB 1479’ timing 

219 GOSUB 1639’ help 

225 ’ nnen 

23 ’ Commando interpreter 

243 PRINT: INPUT"Commando: ";A$:A$=LEFT$(A$, 2) : GOSU 
B 1849 


259 IF “ THEN GOSUB 669:GOSUB 1929:GOTO 240 
269 IF “ THEN GOSUB 989:GOTO 249 
270 IF " THEN GOSUB 1299:GOTO 240 
283 IF “ THEN GOSUB 1339:GOTO 249 
290 IF “ THEN GOSUB 1479:GOTO 240 


307 IF A$="ST"OR A$="SD"OR A$="HT"OR A$="HD" THEN 
GOSUB 2929:GOTO 240 

319 IF A$="PR" THEN GOSUB 2929:GOTO 249 
329 IF SA" THEN GOTO 139 

339 IF WR" THEN GOSUB 2459:GOTO 249 
349 IF A$="RE" THEN GOSUB 2269:GOTO 249 
357 A$=LEFT$(A$, 1):IF A$="E" THEN END 
360 IF A$="H" THEN GOSUB 1639:GOTO 249 
37% PRINT"Typ (H)elp aub..":GOTO 249 
38 * -mnmmenrennnnn ene 
399 ’ toets aangeraakt? 

400 IF INKEY$="" THEN RETURN 

417 BEEP 

420 IF INKEY$="" THEN 420 

433 RETURN 

44D ' mma 
450 BEPALEN VD PLAATS VAN ; 

460 J=INSTR(I,A$, ";") 

473 IF J=0 THEN J=LEN(A$) +1 

487 RETURN 

19 "omnes eneen 
500 ’ ingangssignalen bekend? 

519 J2=1 

520 IF L=1 OR J2=J THEN RETURN 

530 IF A(B(J),K)=A(B(J2), 1) THEN L=1 
540 J2=J2+1:GOTO 520 

55P ’ nennen 
569 ’ Zet scherm op 

579 CLS:PRINT VL$;:IF Z%>=0 AND Z%<24 THEN LOCATE 
@, 2%: PRINTHLS; 

589 LOCATE @,24:PRINT"Schaal=Hor. :“D1"sec VER, "FA 
Cc”; 

597 X=D: RETURN 

BGP "eten 
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619 ’ Berichtje 
629 BEEP:LOCATE 15,24:INPUT"Typ return aub”;A$ 
639 RETURN 


64F ' eme 
659 ’ Invoer struktuur 

66% PRINT 

67% PRINT" STRUKTUUR" 

680 PRINT 

699 NS= 

700 :INPUT"S: “;A$:GOSUB 1849 
719 " OR E>=MA THEN RETURN 


720 E=E+1:I=1:GOSUB 460 

737 A(E, 1)=VAL(LEFTS$(A$, J-I)) 

747 M-E:GOSUB 929 

758 I=J+1:GOSUB 460 

769 IF J-I<>3 THEN 919 

719 G$=MID$(A$, 1,3) :K=-2 

789 K=K+3:IF K<46 AND G8<>MID$(C$,K, 3) THEN 780 
790 IF K>45 THEN 919 

890 K-(K+2)/3:L=VAL(MIDS(D$,K, 1) ) 
815 A(M,2)=K 

820 IF L=2 THEN 884 

839 FOR N=3 TO L 

840 I=J+1:IF I>LEN(A$) THEN 910 

857 GOSUB 460 

8657 A(M,N)=VAL(MID$(A$, I,J-I)) 

879 NEXT N 

889 IF K=6 OR K=7 THEN 3899:’ fu/rel 
899 PRINTCHR$(30) ;LEFT$(A$,J-1);S$ 
90 GOTO 707 

919 BEEP: PRINTCHR$(30) ; : GOTO 790 

929 DU=A(E,1):IF E=1 THEN RETURN 

939 FOR N=1 TO E-1 

940 IF A(N,1)=DU THEN M=N:E=E-1:GOTO 964 
957 NEXT N 

969 RETURN 

IIG eee 
989 ’ Invoer parameters 

99Z PRINT 

1997 PRINT "PARAMETERS" 

1915 PRINT 

1929 A$="":INPUT"P: ";A$ 

1939 IF A$="" THEN RETURN 

1949 I=1:GOSUB 460 

1959 K=VAL(LEFT$(A$, J-1)) :N=g 

1965 N=N+1:IF N<E AND A(N, 1)<>K THEN 1960 
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1979 
1985 
1999 
1190 
1110 
1129 
1139 
1149 
1159 
1164 
1178 
1189 
1199 
1290 
1219 
1220 
1238 
1245 
1259 
1269 
1279 
1289 
1299 
1300 
1319 
1329 
1339 
1349 
1350 
1369 
137% 
1387 
1390 
1490 
1419 
1429 
1430 
1445 
1459 
1460 
1479 
1489 
1499 
1595 
1519 
1529 


IF A(N,1)<>K THEN 1174 

K=A(N,2):IF K=3 THEN 1139 

I=J+1:IF I>LEN(AS) OR K=1 OR K>6 THEN 1179 
GOSUB 465: A(N, 4) =VAL(MIDS$(A$, I, J-I)) 
PRINTCHR$( 39) ;LEFT$(A$, (J-1));S$ 
GOTO 1929 

I=J+1:IF I>LEN(AS) THEN 919 

GOSUB 469 

A(N, 3) =VAL(MIDS(A®8, I,J-I)) 

GOTO 1999 

BEEP: PRINTCHR$(39) ; :GOTO 1920 


Invoer plotblocks 

PRINT 

PRINT" PLOTBLOCKS " 

PRINT 

A$="":INPUT"B: ";A$:I=1:Q=0 
IF Q=4 OR I>LEN(A$) THEN 1299 
GOSUB 469:Q=Q+1 
P(Q)=VAL(MIDS(AS, I,J-I)) 
I=J+1:GOTO 1255 

IF Q=@ THEN BEEP:PRINTCHR$(30); :GOTO 1240 
PRINTCHR$(30) ;LEFT$(A$,J) ; S$ 


Invoer plotrange 
PRINT 

PRINT“ PLOTRANGE" 
PRINT 
A$="":INPUT"R: “";A$ 
I=1:IF A$ 
GOSUB 460: R=VAL(LEFT$(A$, J-1)): I=J+1 
IF I>LEN(A$S) THEN 1449 

GOSUB 460:U=VAL(MID$(A$, I,J-I)): I=J+1 
PRINTCHR$(39) ;LEFT$(A$, J-1);S$ 

RETURN 

BEEP: PRINTCHR$(30) ; :GOTO 1370 


Invoer timing 
PRINT 
PRINT" TIMING" 


“T: "GAS 
“ THEN 1609 
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1539 GOSUB 469:D1=VAL(LEFT$S(AS, J-1)): I=J+1 
1540 IF I>LEN(AS) THEN 1600 

155@ GOSUB 460: T1=VAL(MID$(AS$, I,J-I)): I=J+1 
1569 IF I>LEN(A$) THEN T2-D1:GOTO 1580 
1575 GOSUB 460: T2=VAL(MID$(AS, I, J-I)) 

1589 PRINTCHR$(30) ;LEFT$(A$, J-1);S$ 

1599 RETURN 

1695 BEEP: PRINTCHR$(39); :GOTO 1519 

1619 RETURN 

1625 ° ——annenmanmnne nen 

163% ’ Invoer help 

1649 CLS:PRINT"MSXSIM — HELP" 

1659 PRINT 

1669 PRINT"Commandolijst :" 

1679 PRINT 

1689 PRINT"CP verander parameters." 

1693 PRINT"CB verander plotblocks. 

1799 PRINT"CR verander plotrange." 

1719 PRINT"CT verander timing." 

1729 PRINT"SA opstarten.” 

1734 PRINT"SD Graf. uitvoer. (scherm) " 
1749 PRINT"ST tabel uitvoer. (scherm) 
1759 PRINT"HD Graf. uitvoer. (printer) " 
1763 PRINT"HT tabel uitvoer. (printer) ”" 
1773 PRINT"PR print data.” 

1789 PRINT"WR schrijf data naar diskette." 


1799 PRINT'RE lees data van diskette." 
1892 PRINT"H help” 

1818 PRINT"E einde. ” 

1829 PRINT 

1839 RETURN 

1845 ' menen 


1859 ’ Omzetting in grote letters 
1869 IF LEN(A$)=O THEN 1919 

1879 FOR I%=1 TO LEN(A$) 

1885 HPX=ASC(MID$(AS, IX, 1)) 

1895 MID$(AS, 1%, 1) =CHR$(HPX+((HPX>96) AND (HPX<12 
2))*32) 

1997 NEXT 

1919 RETURN 

1924 ’ sorteer struktuur 

1939 IF E=1 THEN RETURN 

1949 FOR I=1 TO E-1 

195% DU=A(I, 1):DI=I 

1969 FOR N=I+1 TO E 

1975 IF A(N,1)<DU THEN DU=A(N, 1):DI=N 
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1989 NEXT N 

1993 FOR N=1 TO 4:SWAP A(I,N),A(DI,N):NEXT N 
2005 NEXT I:RETURN 

2GIG "ommen ennen 

2929 ’ Print data op scherm 

2939 CLS:PRINT" Struktuur"TAB(22) "Parameters" 
2545 PRINT 

2955 FOR I=1 TO E:GOSUB 490: PRINTA(I, 1); 

206% AI=A(I,2):PRINTTAB(S5) ;MID$(C$, AI*3-2, 3); 
2970 IF AIl<2 THEN PRINT:GOTO 2140 

208% IF AI<3 THEN PRINTTAB(22);A(I,4):GOTO 2140 
2090 IF Al<4 THEN PRINTTAB(22);A(I,3);TAB(11);A(I 
„4):GOTO 2149 

2100 IF Al=6 THEN PRINTTAB(11);A(I,3);TAB(16) ;RL( 
1);TAB(22);A(I,4):PRINTTAB(11);RL(2) ; TAB(16) ;RL(3 
):GOTO 2149 

2110 IF AI<7 THEN PRINTTAB(11);A(I,3);TAB(22) ;A(I 
„4):GOTO 2140 

2120 IF AI<12 THEN PRINTTAB(11);A(I,3):GOTO 2140 
2139 PRINTTAB(11);A(I,3);TAB(16);A(I, 4) 

2145 NEXT 

2159 PRINT 

2169 PRINT"Output bloeks :"; 

2179 FOR I=1 TO Q:PRINTTAB(12+I%5) ;P(I); : NEXT 
2189 PRINT 

2199 PRINT”Max. Amplitude :"U 

220% PRINT"Min. amplitude :"R 

2219 PRINT"Total time :“T1"sec" 

2220 PRINT"Stapgrootte SD :"D1"sec" 

2239 PRINT"Stapgrootte ST :"T2"sec" 

2242 RETURN 

225) "ermee 

2269 ’ Lees datafile in 

2270 NS=-1:PRINT 

2289 INPUT"tape or disk (t/d)";A$:GOSUB 1840 
2290 IF A$<>"D" AND A$<>"T" THEN 2280 

2300 INPUT"Filenaam : “;F$ 

2310 IF A$="T" THEN 2340 

2320 OPEN F$ FOR INPUT AS #1 

2339 GOTO 2350 

2340 OPEN “CAS:"+F$ FOR INPUT AS #1 

2350 INPUT#1,E,Q,R,U,DI,T1, T2,NP 

2360 FOR I=1 TO E:FOR J=1 TO 4 

2375 INPUT#1,A(I,J) 

2387 NEXT:NEXT 

2399 FOR I=1 TO Q: INPUT#1, P(I):NEXT 
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2400 
T 

2410 
2420 
2430 
2447 
2459 
2460 
2479 
2480 
2497 
2500 
2519 
2520 
2530 
2540 
2550 
2560 
2575 
2589 
2597 
T 

2600 
2610 
2620 
2630 
2640 
2650 
2669 
2679 


FOR I=1 TO NP: INPUT#1, FX(I), FFX(I),RC(I) :NEX 


INPUT#1,RL(1),RL(2),RL(3) 
CLOSE #1 


’” Schryf datafile weg 
PRINT:SCREEN ,,,1 
INPUT"tape or disk (t/d)";A$:GOSUB 1849 

IF A$<>"T"AND A$<>"D" THEN 2470UB OKOG 
INPUT"Filenaam: “;F$ 

IF A$="T" THEN 2539 

OPEN F$ FOR OUTPUT AS #1 

GOTO 2540 

OPEN “cas:“+F$ FOR OUTPUT AS #1 
PRINT#1,E,Q,R‚U,D1, T1, T2,NP 

FOR I=1 TO E:FOR J=1 TO 4 

PRINT#1, A(I, J) 

NEXT: NEXT 

FOR I=1 TO Q:PRINT#1,P(I):NEXT 

FOR I=1 TO NP:PRINT#1, FX(I),FFX(I),RC(I) :NEX 


PRINT#1,RL(1),RL(2),RL(3) 
CLOSE #1 
RETURN 


’ Initialisatie 

CLS: T=9: APR=D 

ON CNR GOTO 2679, 2790, 2740, 2850 
PRINT"TIME";:FOR I=1 TO Q:PRINTTAB(I#9); "BLO 


CK“ ;P(I);:NEXT 


2689 
2699 
2700 
2710 


PRINT:PRINT STRINGS$(39, 45) ; 

RETURN 

LPRINT"SIMULATIE-TABEL" : LPRINT 
LPRINT"TIME";:FOR I=1 TO Q:LPRINTTAB( I*16); " 


BLOCK “;P(I);:NEXT 


2720 
2730 
2740 
2750 
2760 
2770 
2780 
279% 
2800 
281% 
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LPRINT:LPRINT STRINGS(89, 45) 
RETURN 

Z!=191/(U-R): TC!=255/T1 

SCREEN 2 

IF U<@ OR R>@ THEN 2830 
YO=191+R*Z 

FOR IX=@ TO 19 

YG=191+RXZ 

LINE (IX*25.5,YZ)-((IX+1)*25.5, Y4) 
LINE -((IX+1)*25.5, YG-1) 


2820 
2839 
2840 
2850 
)*79 
2860 
2870 
er. : 
2880 
2897 
2900 
2919 
2920 
2930 
2940 
2950 
2969 
85 

2970 


NEXT IX 

LINE (5,9)-(@, 191) 

RETURN 

IF SGN(U)=SGN(R) THEN 2%=0 ELSE 2%=80-U/(U-R 


LPRINT"SIMULATIE-GRAFIEK" : LPRINT 
FAC=(U-R)/79:LPRINT"Schaal=Hor.:";D1"sec. V 


: "FAC". " 


LPRINT STRING$(8Z, 45) ; 


’ Berekeningen en plotten 

CNR=(INSTR( “STHTSDHD",A$) +1) /2 

IF NOT NS THEN 3119 ELSE NS=Z 

FOR I=1 TO E:B(I)=I:NEXT 

J=l:X1=E 

H=A(B(J),2):IF H<5 OR H=8 THEN J=J+1:GOTO 29 


K=B(J):FOR I=J TO X1-1:B(I)=B(I+1):NEXT:B(X1 


)=K: X1=X1-1 


2980 
2997 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3097 
3109 
3110 
3129 
313% 
3149 
169 
3150 
)) =D 
3169 
317% 
3180 
3190 
3200 


A(BJ, 


IF J<=X1 THEN 2969 

FOR J=X1+1 TO E 

IF X1+1>E GOTO 3970 
L=G:K=3:GOSUB 519 

IF L=@ THEN 3980 

IF A(B(J),2)<12 THEN 3060 
L=g:K=4:GOSUB 519 

IF L=9 THEN 3080 

NEXT 

GOTO 3119 

G=B(J) 

FOR N=J+1 TO E:B(N-1)=B(N):NEXT 
B(E)=G:GOTO 3919 

GOSUB 2659’ initialisatie 

FOR J=1 TO E:S(J)=@:NEXT 

FOR J=1 TO X1:BJ=B(J) 

IF A(BJ,2)<>3 THEN S(A(BJ,1))=A(BJ, 4):GOTO 3 


IF A(BJ,2)=0 THEN S(A(BJ,1))=1 ELSE S(A(BJ,1 


NEXT 

’IF CNR=3 THEN SCREEN 2 

J=X+1:IF J>E THEN 3229 ELSE 3290 

J=1 

BJ=B(J): I1=A(BJ, 1): I2=A(BJ, 2): I3-A(BJ,3): I4= 
4) 
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3219 


ON I2 GOSUB 3689, 369%, 3790, 3719, 3720, 3730, 37 


69, 3797, 3890, 3819, 3820, 3830, 3847, 3850, 3860 


3220 
3230 
3240 
3250 
3260 
3265 
3270 
3280 
3290 


IF J<E THEN J=J+1:GOTO 3290 

ON CNR GOSUB 3349, 3429, 3499, 3580 
T=T+D1:H$=INKEY$: IF T>T1 THEN 3300 

IF H$="" THEN 3199 

BEEP : SX%=POS(@) : SY%=CSRLIN 

LOCATE 15,24:PRINT"STOPPEN (J=JA)"; 
H$=INKEY$:IF H$="" THEN 3270 

AX=ASC(H$): IF A%>90 THEN A%=A%-32 

IF A%=74 THEN 3319 ELSE LOCATE 15,24:PRINT S 


TRING$(18, " “);:LOCATE SX%,SYX%:GOTO 3199 


3300 
3319 
3320 
3330 
3345 
3350 
3360 
3370 
3380 
3397 
3400 
3419 
3420 
3430 
3440 


IF LEFT$(A$, 1)="S" AND CNR<>3 THEN GOSUB 629 
CLS: RETURN 

Tabel naar scherm 

IF T<APR THEN RETURN 

GOSUB 405 

APR=APR+T2: PRINT; T; 

FOR I=1 TO Q:PRINTTAB(I*9);S(P(I)); :NEXT 
PRINT:PRINT STRING$(39, 45) 

RETURN 


‚ 


Tabel naar printer 
IF T<APR THEN RETURN 
APR=APR+T2 : LPRINT; T; 
FOR I=1 TO Q:LPRINTTAB(IX16);S(P(I)); :NEXT:L 


PRINT 


3450 
3460 
3470 
3480 
3490 
3505 
3510 
3529 
3530 
3540 
3550 
3560 
357% 
3580 
3597 


$, 87- 


3690 
3619 
) 


LPRINT STRING$(89, 45) 

RETURN 

’ Grafiek naar scherm 

FOR I=1 TO Q:SP!=S(P(I)) 

IF SP!>U THEN SP!=U 

IF SP!<R THEN SP!=R 

PSET(TXTC!, 191-((SP!-R)*Z!)), 15 

NEXT I 

IF T+D1>T1 THEN GOSUB 414%: RETURN 

RETURN 

’ Grafiek naar printer 

RESTORE: READ A,‚B:P$=STRING$(B0, 32) 

IF Z%<>9 THEN P$=LEFT$(P$, 2%-1)+"I"+RIGHTS$(P 
2%) 

FOR I=1 TO Q:READ C:SPI%=(S(P(I))-R)/FAC+1 
IF SPI%>8@ OR SPI%<1 THEN SPI%=1-79*(SPI%>80 


3627 
%) 

3630 
3640 
3659 
3669 
3670 
368% 
3699 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3829 
3830 
3849 
3850 
3869 
3879 
3887 
3895 
3900 
3919 
3920 
3930 
3940 
3950 
3960 
3970 
3985 
3997 
4000 
4710 
4020 
4030 
4040 
4050 


P$=LEFT$(P$, SPIX%-1)+CHR$(C)+RIGHT$(P$, 89-SPI 


NEXT 

DATA 248,15,42, 35,43, 37 

LPRINT P$; : RETURN 

’ functieblokken 

S(I1)=T: RETURN 

RETURN 
S(Il)=1+((T>I4)OR(T<I3)) : RETURN 
S(II)=S(I1)+S(I3)*D1: RETURN 
S(I1)=S(I3)*I4: RETURN 

NR=2:IF ABS(S(I3)-I4)<1E-O4 THEN 3750 
NR=(S(I3)-I4>0)*-2+1 
S(II)=S(RL(NR)) : RETURN 
N=1:H=S(13) 


N=N+1:IF (FX(N)<=H) AND (N<NP) THEN 377C 


S(I1)=FFX(N) -(FX(N) -H)*RC(N) : RETURN 
S(I1)=14:A(B(J), 4)=S( 13) : RETURN 
S(I1)=SIN(S(I3)) : RETURN 
S(I1)=COS(S(I3) ) : RETURN 
S(I1)=EXP(S(I3)) : RETURN 
S(I1)=S(13)+S(I4) : RETURN 
S(Il)=S(I3)-S( 14) : RETURN 
S(I1)=S(I3)*XS( 14) : RETURN 
S(I1)=S(I3)/S(14) : RETURN 

’ FNC en REL routine 

IF K=7 THEN 396’ FNC 

T=0 
T=T+1:I=J+1:BAD=(I>LEN(AS)) :GOSUB 460 
RL(T)=VAL(MID$(A®$, I,J-I)) 

IF T<3 AND (NOT BAD) THEN 3910 
IF BAD THEN 919 ELSE 890 

’ FNC-blok (=funetion) 
NP=A(M, 4) 

INPUT"x, F(x)=";FX(1),FFX(1) 
FOR I=2 TO NP 

INPUT"x, F(x)=";FX(I),FFX(I) 


RC(I)=(FFX(I)-FFX(I-1))/(FX(I)-FX(I-1)) 


NEXT I 
PRINT:GOTO 899 


* foutbehandeling 


IF ERR=6 THEN CLS:PRINT"Overflow in block"I1 
:PRINT:RESUME 246 
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4060 


IF ERR=11 THEN CLS:PRINT"division by zero": 


ESUME 245 


4975 
4580 
4090 
4100 
4110 
4129 
4139 
4140 
4159 


CLS:PRINT "Error" ;ERR: RESUME 240 


einde schermplot 
BEEP:BEEP:PSET (249, 177) 

OPEN “grp:” AS #1 

PRINT #1, "2" 

I$=INKEY$ 

IF INKEY$<>CHR$(13) THEN 4140 
CLOSE #1 :RETURN 


5.3 DIGITALE SIMULATIE 


Het digitale simulatieprogramma is speciaal bedoeld voor het doorrekenen van combinato- 
rische schakelingen. Een combinatorische schakeling is niet tijdsafhankelijk en bevat zo- 
doende geen terugkoppelingen. Bij iedere ingangscombinatie hoort slechts één 
uitgangscombinatie. Dit in tegenstelling tot zogenaamde sequentiële schakelingen en clock- 
schakelingen. 


5.3.1 DE BOUWSTENEN 


De te simuleren schakeling dient te worden opgebouwd uit de volgende logische ele- 
menten: 


aantal 
toegestane ingangen 


AND 1- NM 

OR 1-N 
NAND 1-4 
NEXOR {- 2 

ING [°- o 


Het maximaal toegestane ingangen is M. De waarde van M wordt door het programma ge- 
vraagd (zie volgende paragraaf). 


5.3.2 EEN UITGEWERKT VOORBEELD 


Om een en ander toe te lichten gebruiken we als voorbeeld een zogenaamde ingangentel- 
ler. De schakeling heeft 4 ingangen en 5 uitgangen 
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Uitgang 1 heeft als waarde 1 als alle ingangen de waarde O hebben. Uitgang 2 heeft de 
waarde 1 als één van de ingangen de waarde 1 heeft. Uitgang 3 heeft de waarde 1 als twee 
van de ingangen de waarde 1 hebben, enz 
Om de structuur van de schakeling te kunnen invoeren, geven we ieder element een uniek 
nummer. Omdat alle elementen slechts één uitgang hebben, wordt dit nummer tevens ge- 
bruikt als aanduiding van de uitgang van het element. 
Een element wordt nu als volgt ingevoerd. 

bloknummer; type; ingangen 


Blok 70 bijvoorbeeld is een AND en de ingangen zijn verbonden met de uitgang van blok- 
ken 10 en 40. Zo wordt blok 70 als volgt aangegeven: 


70; AND; 10; 40 


Op deze wijze voeren we de gehele schakeling in 
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5.3.3 INVOEREN VAN EEN MODEL 


Na opstarten van het programma verschijnt het volgende menu. 


=--Invoer model-—— 


Invoer van: 


Cassette 
Diskette 
Toetsenbord 
Geen 


aaa 


Omdat we een nieuw model willen invoeren, kiezen we voor de T. Met de keuze C of D 
kunnen we een model laden van respectievelijk cassette of diskette. Met de keuze G blijft 
een eventueel reeds in het geheugen aanwezige model onveranderd 

Om zo veel mogelijk geheugen te besparen vraagt het programma vervolgens naar het ma- 
ximaal aantal ingangen per element. In ons voorbeeld heeft blok 160 de meeste ingangen, 
namelijk 6. We geven dus 6 op. 

Daarna verschijnt een dubbele punt (:). We kunnen nu de schakeling invoeren volgens de 
in de vorige paragraaf beschreven notatie. leder blok moet afgesloten worden met een 
S<RETURN> 

Voor het voorbeeld ziet de invoer er als volgt uit 


===Model invoeren-—- 


Heximaal aantal ingangen per element: ? 


220; AND; 170; 200 
180;NOR; 159; 210;220; 230 


2000000000 000000 00000000 
md | 
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De volgorde waarin de blokken worden ingevoerd is niet van belang. Een eventueel foutief 
ingevoerd blok kan gewoon nogmaals worden ingevoerd. Een reeds ingevoerd blok kun- 
nen we weer verwijderen door alleen het bloknummer in te toetsen, gevolgd door 
S<RETURN> 

De invoer wordt beëindigd door alleen <RETURN> te geven. Onmiddellijk verschijnt de 
prompt (#). 


5.3.4 DE COMMANDO'S 


Het verschijnen van de prompt (#) geeft aan dat we nu één van de volgende commando's 
kunnen geven, 


—--Menu--- 


S : Start simulatie 
WT: Opstellen waarheidstabel 
L : Laten zien van model 
C : Laten zien van schijfcatalogus 
NM: Nieuw model invoeren 
VM: Veranderen model 
VI: Verandeen ingangen en 

start simulatie 
DU: Definiëren uitgangen 
PU: Uitvoer laten zien 
OD: Opslaan van model op diskette 
OC: Opslaan van model op cassette 
H : Deze commandolijst laten zien 
ST: Verlaten van het programma 


We zullen de commando's één voor één nader toelichten. 
DU: Definiëren uitgangen 


Met behulp van het DU-commando geven we op van welke blokken we de uitgangswaarde 
willen weten, m.a.w. welk blok een uitgangsblok is. 

Na het intoetsen van het commando verschijnen één voor één de nummers van de blokken 
die reeds als uitgangsblok zijn gedefinieerd. Door het intoetsen van de letter N gevolgd 
door SRETURN>, geven we aan dat het desbetreffende blok niet meer als uitgangsblok 
dient te worden beschouwd. Typen we alleen een <RETURN> in, dan blijft het blok een 
uitgangsblok. Als alle uitgangsblokken aan de beurt zijn geweest, kunnen we nieuwe uit- 
gangsblokken toevoegen. 

Aangezien we in ons voorbeeld tot nu toe nog geen enkel blok als uitgangsblok hadden 
gedefinieerd en we de blokken 150, 180, 210, 220, en 230 als uitgang willen definiëren, 
krijgen we de volgende invoer: 
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=--Definiëren uitgangen-—— 


oude uitgangen: 
(Toets een N in voor wissen) 


Nieuwe uitgangen: 


159 
185 
219 
220 
230 


00020000 


L: Laten zien van model 


Het L-commando geeft een listing van het ingevoerde model. Voor ons voorbeeld 


==-Listing van model 


Maximaal aantal ingangen voor AND, OR, N 
AND en NOR: 6 


No: Soort: Uit: In: 


19 ING [} 
20 ING P] 
30 ING g 
43 ING 0 
50 AND @ 30 ; 40 
62 AND @ 20 ; 42 
70 AND B 10 ; 49 
85 AND @ 20 ; 30 
90 AND @ 19; 30 
122 AND @ 12 ; 20 
119 AND 0 20; 30 ; 42 
120 AND B 19; 30 ; 42 
132 AND @ 19 ; 20 ; 30 
143 AND 9 19; 20 ; 40 
U 15 NOR 9 19; 20 ; 30 ; 40 
165 OR @ 50; 69 ; 70 ; 80 ; 
90 ; 102 
170 OR DO 119 ; 129 ; 139 ; 149 
U 182 NOR G 159 ; 219 ; 220 ; 230 
190 INV 0 179 
203 INV 3 239 
U 219 AND @ 169 ; 199 
U 229 AND @ 170 ; 200 
U 230 AND 18 ; 20 ; 30 ; 49 


De listing is gesorteerd op opklimmend bloknummer. Bij sommige blokken staat in de eerste 
kolom een “U'. Dit geeft aan dat het betreffende blok een uitgangsblok is. 

Mocht blijken dat we fouten hebben gemaakt met het invoeren van het model, dan kunnen 
we het wijzigen met het VM-commando. 


VM: Veranderen model 


Voor het veranderen van het model gaan we op precies dezelfde manier te werk als bij het 
invoeren van het model. Weer verschijnt de dubbele punt (:). We kunnen nu nieuwe blokken 
toevoegen of bestaande blokken verwijderen. Beëindig het commando door alleen een 
<RETURN> te geven 


S : Start simulatie 
Als we het model correct hebben ingevoerd en de uitgangsblokken hebben gedefinieerd, 


kunnen we de schakeling gaan simuleren met het S-commando. Het gehele model wordt 
nu doorgerekend en na enige tijd verschijnt: 


=--Resultaten-—— 
Ingangen: Uitgangen: 
19 : 159 ; 1 
22: 0 189 ; @ 
33: g 210 ; 
49 : 220 ; 
230 ; 0 


Links zijn de ingangsblokkken aangegeven met hun ingangswaarde en rechts staan de uit- 
gangsblokken met hun uitgangswaarde. Omdat alle ingangen de waarde O hebben, heeft 
alleen uitgangsblok 1 de waarde 1 


VI: Veranderen ingangen en start simulatie 

Uiteraard willen we ook voor andere ingangscombinaties weten wat de waarde van de uit- 
gangsblokken is. Door middel van het Vl-commando kunnen we de ingangen een nieuwe 
waarde geven. Op het beeldscherm verschijnt: 


—--Veranderen ingangen-—— 


ING 19 (@):? 
ING 29 (@):?1 
ING 38 (@): 21 
ING 49 (0): 7 


Even geduld an h 
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=--Resultaten-—— 


Ingangen: Uitgangen: 
19: @ 159 ; @ 
29: 1 189 ; @ 
38 : 1 218 ; 1 
40: @ 220 ; @ 
230 ; 0 


Voor iedere ingang toetsen we een 1 of een O in, gevolgd door <RETURN>. Drukken we 
alleen op <RETURN>, dan blijft de ingangswaarde onveranderd. 

Na veranderen van de laatste ingangswaarde vindt automatisch een simulatie plaats. Na 
enige tijd worden de nieuwe uitgangswaarden weergegeven. 


WT: Opstellen van de waarheidstabel 


In plaats van zelf steeds de ingangswaarden te veranderen met het Vl-commando, kunnen 
we het model laten doorrekenen voor alle mogelijke ingangscombinaties met behulp van 
het WT-commando. 

We verkrijgen dan een zogenaamde waarheidstabel. Voor ons voorbeeld. 


Het opstellen zal ongeveer 6 min. 
duren. 
Start? (J/N): ? J 


Ingangen: Uitgangen: 
1 oog 10000 
2 001 1000 
3 10 Gio 
4 011 0100 
5 100 1000 
6 0101 00100 
1 0118 0100 
8 B111 20010 
9 1900 1000 
19 190 1 0100 
11 1018 0100 
12 1011 0010 
13 1100 0100 
14 1181 0010 
15 1110 0010 
16 ce ED 0001 
# ? 


Omdat het aantal ingangscombinaties groot is, duurt het samenstellen van de waarheidsta- 
bel enige tijd. Het is ook mogelijk zelf de ingangscombinates op te geven waarvoor de 
waarheidstabel moet worden berekend. Daartoe beantwoorden we de vraag "Wilt u zelf de 
gewenste ingangscombinaties opgeven?” met "'J"' 
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We mogen maximaal 20 combinaties opgeven, bijvoorbeeld: 


S<RETURN> 

‘SRETURN> 
1 SRETURN> 
1 SRETURN> 
ETURN> 


0; 0; 0; S<RETURN> 
0; 0; 1 
0; 1; 1 
EH 
rik A 


0; 
0; 
0; 
0; 
LH 
<RI 


We verkrijgen het volgende resultaat 


No: Ingangen: Uitgangen: 
d oog 10000 
2 001 01000 
3 0811 0100 
4 O111 20010 
5 DA Ee ED 001 


OD: Opslaan van model op diskette 
OC: Opslaan van model op cassette 


Met de commando's OD en OC kunnen we een model saven op diskette ef cassette. Het 
model kan weer worden geladen met het NM-commando. 


NM: Nieuw model invoeren 

Na intoetsen van het NM-commando verschijnt hetzelfde menu als bij het opstarten van het 
programma. We hebben de keus om een model van cassette (C) of diskette(D) te laden, 
óf we kunnen een nieuw model invoeren (T) 

PU: Uitvoer laten zien 


De laatst berekende uitvoer wordt nogmaals getoond. 


H : Deze commandolijst laten zien. 
ST: Verlaten van programma. 
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Programma: 


Digisim 


door: 
Chris Baten 


9% CLEAR 200 
180 ON ERROR GOTO 498% 
110 WIDTH 40 
129 DEFINT A-Z, 
139 _ DIM Ica), IN(1),ST(1, 1) 
149 CLS 
159 LOCATE 16,6 
169 PRINT “DIGISIM" 
179 LOCATE 6,8 
180 PRINT “Een simulatieprogramma voor” 
199 LOCATE 12:PRINT “Combinatorische" 
200 LOCATE 9:PRINT “digitale schakelingen” 
212 PRINT 
220 LOCATE 18:PRINT “door: ” 
239 PRINT 
249 LOCATE 14:PRINT “Chris Baten” 
259 FOR I=1 TO 1599 
260 NEXT I 
270 CLS 
289 LOCATE 11 
299 PRINT "---Invoer model---" 
300 LOCATE 8,4 
319 PRINT “Invoer van: “ 
320 LOCATE 13,6 
339 PRINT “C: Cassette” 
340 LOCATE 13 
350 PRINT “D: Diskette" 
369 LOCATE 13 
379 PRINT “T: Toetsenbord” 
38 LOCATE 13 
399 PRINT “G: Geen” 
15 


;A$ 

THEN GOSUB 499:GOTO 470 
" THEN GOSUB 739:GOTO 479 
THEN GOTO 1360 

" THEN GOTO 479 


478 GOTO 5410 

482 END 

490 REM —---Invoer van cassette-—— 

509 CLS::PRINT:ERASE IC, IN,ST 

519 DIM IC (20,16),IN(16),ST(1,1) 

520 LOCATE 8:PRINT “---Invoer van cassette-—-" 
539 LOCATE 7,3 


INPUT “Naam van het model: ";NA$ 
LOCATE 19,5 

PRINT “Start de recorder” 

LOCATE 19:PRINT "(PLAY-stand)” 
LOCATE 10:PRINT 
A$=INKEY$:IF A$= 
LOCATE 8,19 
PRINT “Het model wordt geladen” 
NA$="CAS: "+NA$ 

OPEN NA$ FOR INPUT AS #1 

INPUT #1, TEL, ME, MI 

ERASE ST:DIM ST(ME,MI+4) 

FOR I=9 TO ME 

FOR J=@ TO MI+4 

INPUT #1,ST(I,J) 

NEXT J 

NEXT I 

CLOSE 

RETURN 

REM ---Invoer van diskette-—— 


“ THEN GOTO 599 


ON ERROR GOTO 4080 
ERASE ST, IN, IC 
DIM IC(20,16), IN(16),ST(1,1) 


INPUT “Naam van het model: “;NA$ 
PRINT 

IF NA “ THEN GOTO 5780 
NAS$="A: "+NA$ 

OPEN NA$ FOR INPUT AS #1 
INPUT #1, TEL, MI,ME 
ERASE ST 

DIM ST(ME,MI+4) 

FOR I=9 TO ME 

FOR J= TO MI+4 

INPUT #1,ST(I,J) 

NEXT J 


1949 LOCATE „19 


INPUT “Naam van het te saven model: 


1959 NA$="CAS: "+NA$ 
1972 OPEN NA$ FOR OUTPUT AS #1 
1982 PRINT #1, TEL, ME, MI 


1990 
1199 
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FOR I=O TO ME 
FOR J=3 TO MI+4 


“en druk een toets in.” 


“;NA$ 


1119 
1129 
1139 
1149 
1150 
1169 
1178 
1182 
1199 
1209 
1219 
1220 
1230 


1250 
1260 
1279 
1280 
1292 
1300 
1310 
1320 
1330 
1340 
135 
1362 
1370 
1380 
1399 
1420 
1412 
1420 
1430 
1440 
1450 
1462 
1470 
1482 
1492 
1500 
1510 
1520 
1530 
1542 
1552 
1562 
1570 
1582 
1590 
1622 
1610 
1620 
1630 
1642 
1659 
1662 


PRINT #1,ST(I,J) 

NEXT J 

NEXT I 

CLOSE 

RETURN 

REM —--Uitvoer naar diskette 
CLS 

PRINT 

LOCATE 6 

PRINT “—---Uitvoer naar diskette---" 


aam van model: “;NA$ 

THEN GOTO 5789 
:"+NA$ 

OPEN NA$ FOR OUTPUT AS #1 

PRINT #1, TEL, MI, ME 

FOR I=9 TO ME 

FOR J=3 TO MI+4 

PRINT #1,ST(I,J) 

NEXT J 

NEXT I 

CLOSE 

PRINT 

RETURN 

REM —--Invoer toetsenbord--— 

ERASE IC,ST, IN 


DIM IC(29,16), IN(16) 

CLS 

C=0 

LOCATE 12 

PRINT “---Model invoeren-—-" 
LOCATE „4 

INPUT “Maximaal aantal ingangen per element: 
PRINT 

ME=INT(1000/(MI+4)) 

DIM ST(ME,MI+4) 

TEL=@ 

ST$= 

INPUT ": ";ST$ 

IF ST$="" THEN PRINT :GOTO 5609 
S$=LEFT$(ST$, 1) 


GOSUB 4940: IF F=1 THEN 1490 
N$=5$ 

FOR I=2 TO 5 

S$=MIDS(ST$, I, 1) 


IF S: THEN GOTO 1622 
THEN GOSUB 4629 :GOTO 1499 
GOSUB 4949: IF F=1 THEN 1490 
N$=N$+5$ 
NEXT I 
ZOEK=VAL(N$) 
GOSUB 4129 
IF G=@ THEN TEL=TEL+1:PS=TEL:GOTO 1670 


IF G=1 THEN GOTO 1679 
IF G=2 THEN TEL=TEL+1:GOSUB 4730 
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1679 IF TEL>=ME THEN PRINT “Model is te groot. ”":PRINT “Verdee 
1 het model in stukken of pas de declaratie van het modelarra 
y ST aan.” 

1682 ST(PS,0)=0 

1690 ST(PS, 1)=VAL(N$) 

1700 K=I 
1718 N$="" 

1729 FOR I=K+1 TO K+5 
1738 S$=MIDS(STS$, 1,1) 


1749 IF S$: THEN GOTO 1770 

1750 Ns=N$+5$ 

1760 

1778 THEN ST(PS,2)=1:GOTO 1869 
1789 THEN ST(PS, 2 H 

1799 AND" THEN ST(PS,2) 

1800 THEN ST(PS, 2) 

1819 EXOR" THEN ST(PS, 2) 

1829 EXOR" THEN ST(PS,2) 

1839 “__ THEN ST(PS,2) 


1840 THEN ST(PS,2)=8:GOTO 1860 
1850 GosuB300: GOTO 1490 

186% S$=MID$(ST$, I+1, 1) 

1872 AANTAL: 
1889 IF S$= THEN GOTO 2070 
1899 GOSUB 4049:IF F=1 THEN 1492 
1900 1$=5$ 

1919 K=I 

1929 FOR I=K+2 TO LEN(ST$)+1 
1930 
1940 8 THEN GOTO 1980 

1954 GOSUB 4040:IF F=1 THEN 1492 

1969 1$=1$+5$ 

1979 GOTO 2960 

198% AANTAL-=AANTAL+1 

1990 IF AANTAL>MI THEN GOTO 2190 

2009 ST(PS, AANTAL+4)=VAL( 18) 

2019 IF S$="" THEN GOTO 2970 

2029 I=1+1 

2030 S$-MIDS(ST$, I, 1) 

2040 GOSUB 4940: IF F=1 THEN 1499 

2059 1$=5$ 

2060 NEXT I 

2970 ST(PS, 4) =AANTAL 

2089 IF ST(PS,2)>4 THEN GOTO 2110 

2090 IF AANTAL<1 THEN GOTO 2190 

2192 GOTO 2180 

2110 IF ST(PS,2)>6 THEN GOTO 2140 

2120 IF AANTAL<>2 THEN GOTO 2190 

2139 GOTO 2182 

2149 IF ST(PS,2)<>7 THEN GOTO 2170 

2152 IF AANTAL<>1 THEN GOTO 2192 

2169 GOTO 2189 

2178 IF AANTAL<>@ THEN GOTO 219% 

2189 GOTO 1490 

2199 PRINT “Niet toegestaan aantal ingangen.” 
2200 N$=STRS(ST(PS, 1)) 

2219 GOSUB 4620 
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2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 


GOTO 1499 
REM —--And--— 
UIT=1 


FOR S=1 TO ST(NW, 4) 

ZOEK=ST (NWH, S+4) 

GOSUB 4120 

IF G<>1 THEN GOTO 3939 

IF ST(PS,3)=@ THEN UIT =9:GOTO 2319 
NEXT S 

ST(NW, 3) =UIT 


2329 RETURN 


2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2620 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2778 
2780 


REM ——-OR--- 

UIT=0 

FOR S=1 TO ST(NW, 4) 
ZOEK=ST (NW, S+4) 

GOSUB 4120 

IF G<>1 THEN GOTO 3939 

IF ST(PS,3)=1 THEN UIT=1:GOTO 2410 
NEXT S 

ST(NW, 3) =UIT 

RETURN 

REM —--Nand--— 

GOSUB 2230:REM ——-And--— 

GOSUB 2740:REM —--InvZ--- 
RETURN 

REM —--Nor--— 

GOSUB 2330:REM ——-Or--— 

GOSUB 2740:REM —--InvZ--- 
RETURN 

REM —---Exor--- 

ZOEK=ST (NW, 5) 

GOSUB 4120:REM ——-Zoek element uit lijst--- 
IF G<>1 THEN GOTO 3930 

P1=PS 

ZOEK=ST (NW, 6) 

GOSUB 4120:REM —--Zoek element uit lijst--- 
IF G<>1 THEN GOTO 3930 

P2=PS 

UIT=0 

IF ST(P1,3)<>ST(P2, 3) THEN UIT=1 
ST(NW, 3) =UIT 

RETURN 


REM ---Nexor-- 

GOSUB 2519:REM —--Exor--- 
GOSUB 2740:REM —--InvZ--- 
RETURN 

REM ——-Inv--— 

ZOEK=ST (NW, 5) 

GOSUB 4129 

IF G<>1 THEN GOTO 3939 
ST(NW, 3)=1-ST(PS, 3) 
RETURN 

REM ——-InvZ--- 
ST(NW, 3) =1-ST(NW, 3) 
RETURN 

REM —--Simulatie-—— 

K=l 
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2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 


v=g 

IF WT=1 THEN GOTO 2830 

CLS:LOCATE 19,12 

PRINT “Even geduld a.u.b....” 

FOR NW=1 TO TEL 

H=ST(NW, 3) 

ON ST(NW,2) GOSUB 2230, 2339, 2430, 2470, 2510, 2640, 2680 
IF H<>ST(NW,3) THEN V=1 

NEXT NW 

K=K+1 

IF K>30 THEN PRINT "Er treedt oscillatie op. De simulati 


e":PRINT “is afgebroken na “;K-1;" maal doorrekenen. “: GOTO 2 
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2900 
2910 
2920 
2930 


IF V=1 THEN GOTO 2799 
IF WT=1 THEN GOTO 2939 


GOSUB 5279:REM ——-Uitvoer--- 

RETURN 

REM —--Opstellen waarheidstabel-—— 

CLS:LOCATE 6 

PRINT "—--Opstellen waarheidstabel-—-" 

PRINT 

INPUT “Wilt U zelf de ingangenreeks definiëren? (J/N) "; 


IF A$="j" OR A$="J" THEN GOTO 3459 

IN(1)=-1 

FOR I=2 TO 16 

IN(I)=0 

NEXT I 

Al=@ 

FOR T=1 TO TEL 

IF ST(T,2)=8 THEN AlzAl+1 

IF Al>=16 THEN PRINT “Te groot aantal ingangen.”: GOTO 3 


NEXT T 

LOCATE ‚4 

PRINT “Het opstellen zal ongeveer “;INT(TEL*2°AI/60);" m 
:LOCATE ,5:PRINT, aoe: o 
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PRINT “Ingangen: "; 

LOCATE (Al*2+14) 

PRINT "Uitgangen: " 

PRINT 

FOR R=1 TO 2°AI 

FOR I=1 TO AI 
IN(I)=IN(I)+1 

IF IN(I)<>2 THEN GOTO 3240 
IN(I)=0 

NEXT I 

WT=1 

I=1 

FOR T=TEL TO 1 STEP —1 

IF ST(T,2)=8 THEN ST(T,3)=IN(I):I=I+1 
NEXT T 

GOSUB 2779 

PRINT R; 


3319 LOCATE 6 

3320 FOR I=AI TO 1 STEP —1 

3333 PRINT USING" ##";IN(I); 

3349 NEXT I 

3352 LOCATE (AI*2+14) 

3368 FOR T=1 TO TEL 

3370 IF ST(T,@)=1 THEN PRINT USING"##";ST(T, 3); 

3389 NEXT T 

3399 PRINT 

3400 IF INT(R/20)*20=R THEN INPUT “Scroll?: ";A$ 

3412 NEXT R 

3420 PRINT 

3430 WT=O 

3449 RETURN 

3450 REM —--DEFINIEREN INGANGENREEKS EN OPSTELLEN WAARHEIDSTA 
BEL--- 

3469 CLS:LOCATE 5: PRINT “---Definiëren ingangenreeks---": PR 
INT 

3470 PRINT “Geef de gewenste ingangstoestanden: “:PRINT 
3480 Al=@ 

3493 FOR T=1 TO TEL 

3500 IF ST(T,2)=8 THEN Al=Al+1 

3510 IF AI>16 THEN PRINT: PRINT “Te groot aantal ingangen. ": 
GOTO 3929 

3520 NEXT T 

3539 FOR AS=1 TO 29 

3540 PRINT AS; 


3550 ST$=" 
3569 INPUT ";ST$ 
3570 IF ST$="" THEN GOTO 3720 


3580 IF LEN(ST$)<>2%AI-1 THEN GOTO 3689 
3590 FOR S=1 TO 2*AI-1 STEP 2 

3600 S$-MID$(ST$,S, 1) 

3619 IF S$<>"@" AND S$<>"1" THEN GOTO 3680 
3620 IC(AS, (S+1)/2)=VAL(S$) 

3630 S$-MIDS(ST$, S+1, 1) 

3649 IF S$="" THEN GOTO 3710 

3650 IF S$<>";" THEN GOTO 3682 

3667 NEXT S 

3673 GOTO 3639 

3682 PRINT “Foute invoer.” 

3699 PRINT “Probeer opnieuw...” 

3790 GOTO 3550 

3710 NEXT AS 

3720 CLS:PRINT “ No:";TAB(6); "Ingangen: ";TAB(AI*2+14) ; “Uitgan 
gen: ”":PRINT 

3739 FOR I=1 TO AS-1 

3749 Z=l 

3750 FOR T=1 TO TEL 

3760 IF ST(T,2)=8 THEN ST(T,3)=IC(I,Z):Z=Z+1 


3770 NEXT T 
3788 WT=1: GOSUB 2779: WT=@ 
3790 PRINT * ";I; 


3803 LOCATE 7 

3819 IF Al=@ THEN GOTO 3850 
3829 FOR J=1 TO AI 

3839 PRINT USING" ##";IC(I,J); 
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3840 NEXT J 

3852 LOCATE (AI*2+15) 

3862 FOR T=1 TO TEL 

3870 IF ST(T,4)=1 THEN PRINT USING"##";ST(T, 3); 

3880 NEXT T 

3893 PRINT 

3920 NEXT I 

3919 PRINT 

3929 RETURN 

3939 REM —--Foutmelding onbekende ingang--- 

3949 PRINT “Struktuurfout” 

3950 PRINT “Het blok "ST(NW,1);" heeft de onbekende ingang “; 

ZOEK 

3960 

3970 

3980 

3993 REM 

4003 

4010 PRINT “Probeer opnieuw...” 

4920 F=1 

4032 RETURN 

4040 REM ---Test op cijfer-—— 

4050 F=0 

406% IF ASC(S$)<48 OR ASC(S$)>58 THEN GOTO 3990 

4979 RETURN 

4080 REM —--Errorbehandeling-—- 

4090 IF ERR=19 THEN PRINT "I/O-error”:RESUME 5600 

4100 IF ERR=53 OR ERR=56 THEN PRINT “Verkeerde naam voor mode 

1. “:RESUME 5600 

4110 RESUME 5410 

4129 REM ---Zoek element in lijst--- 

4139 G=0 

4140 IF TEL=@ THEN GOTO 41890 

4159 FOR PS=1 TO TEL 

4162 IF ST(PS,1)=ZOEK THEN G 

4170 IF ST(PS,1)>ZOEK THEN G: 

4182 NEXT PS 

4199 RETURN 

4209 REM —--Listing van model--— 

4219 CLS 

4220 LOCATE 7 

4230 PRINT "—-—-Listing van model-—-" 

4249 PRINT 

berid ahd “Maximaal aantal ingangen voor AND, OR, NAND en NO 
her 

4262 PRINT 

4270 PRINT * No: Soort: Uit: In:” 

4280 PRINT 

4290 LOCATE, 7 

4300 IF TEL=S THEN GOTO 4360 

4319 FOR T=1 TO TEL 

4329 GOSUB 4379 

4339 IF INT(T/16)*16=T THEN INPUT “Seroll?: “;A$ 

4349 NEXT T 

4352 PRINT 

4369 RETURN 


: GOTO 4190 
: GOTO 4190 
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4370 
4380 
4390 
4490 
4410 
4420 
4430 
4447 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4539 
4540 
4550 
4560 
4570 
4580 
4599 
4600 
4610 
4620 
4630 
4640 
4659 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4819 
4820 
4830 
4849 
4850 
4869 
4870 
4880 
4890 
4900 
4910 
4920 
4930 


REM ——-Afdrukken element 


IF ST(T,@)=1 THEN PRINT "U"; 
LOCATE 2 

PRINT ST(T, 1); 

LOCATE 7 

ON ST(T,2) GOTO 4430, 4440, 4450, 4460, 4470, 4489, 4490, 4500 
PRINT “AND”; : GOTO 4519 
PRINT * 4510 
PRINT 4510 
PRINT * 4510 
PRINT * 4510 
PRINT * 4510 
PRINT ” 4510 
PRINT * 4510 
LOCATE 14 

PRINT ST(T,3); 

LOCATE 18 

IF ST(T,4)=@ THEN GOTO 4690 
PRINT ST(T,5); 


IF ST(T,4)=1 THEN GOTO 4690 
FOR R=2 TO ST(T,4) 


PRINT “;";ST(T, 4+R) ; 

NEXT R 

PRINT 

RETURN 

REM ——-Wissen in model--- 


ZOEK=VAL(N$) 

GOSUB 4120:REM ——-Zoek element in lijst--— 
IF G<>1 THEN GOTO 4720 
FOR T= PS+1 TO TEL 

FOR S=0 TO MI+4 
ST(T-1,S)=ST(T, 5) 

NEXT S 

NEXT T 

TEL=TEL-1 

RETURN 

REM —--Schuiven-—— 

FOR T=TEL TO PS+1 STEP -1 
FOR S=0 TO MI+4 


ST(T,S)=ST(T-1, 5) 

NEXT S 

NEXT T 

RETURN 

REM —--Veranderen ingangen-—— 
CLS 

LOCATE 8,1 

PRINT “---Veranderen ingangen-——" 
PRINT 

FOR T=1 TO TEL 

LOCATE 11 

IF ST(T,2)<>8 THEN GOTO 4950 
PRINT "ING “;ST(T,1);" (*;ST(T,3);") "5 


IN$ 


IN$ 

„THEN GOTO 4950 

IN=VAL( INS) 

IF IN<>@ AND IN<>1 THEN GOTO 4860 
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4949 ST(T, 3) =IN 

4950 NEXT T 

4969 PRINT 

4970 RETURN 

4987 REM --Definiëren uitgangen-—— 


5019 PRINT “---Definiëren uitgangen-——" 
5020 LOCATE, 4 

5030 PRINT “oude uitgangen: " 

5040 PRINT “(Toets een N in voor wissen)” 
5950 PRINT 

5960 FOR T=1 TO TEL 

5070 IF ST(T,O)<>1 THEN GOTO 5119 

5089 PRINT ST(T,1); 

5099 INPUT ": ";A$ 

5100 IF A$="N" OR A$="n" THEN ST(T,O)=0 
5110 NEXT T 

5129 PRINT 

5139 PRINT “Nieuwe uitgangen: " 

5149 PRINT 


";S$ 

THEN GOTO 5260 
5189 GOSUB 4049: IF F=1 THEN 5159 
5199 ZOEK=VAL(S$) 

5209 GOSUB 4129 

5219 IF G=1 THEN GOTO 5240 
5229 PRINT “Element “;ZOEK;" is onbekend." 
5239 GOTO 5159 

5249 ST(PS,O)=1 

5259 GOTO 5159 

5269 RETURN 

5270 REM ——-Uitvoer--- 

5280 CLS:LOCATE 13 

5299 PRINT “—--Resultaten---" 
5390 LOCATE 7,3 

5319 PRINT “Ingangen:"; 

5329 LOCATE 26 

5332 PRINT “Uitgangen: 

5349 PRINT 

5359 G1=1:G2=1 

5360 FOR T=1 TO TEL 


5370 IF ST(T,2)=8 THEN LOCATE 6,G1+4:PRINT ST(T,1);": ";ST(T, 
3):G1=G1+1 

5380 IF ST(T,@)=1 THEN LOCATE 25,G2+4:PRINT ST(T,1);"; ";ST(T 
„3):G2=G2+1 

5390 NEXT T 

5400 RETURN 

5410 REM —--Commando’s-—- 

5429 CLS 

5430 LOCATE 15 

5440 PRINT “-—-Menu---" 

5450 PRINT:PRINT 


5469 PRINT "S : Start simulatie” 
5470 PRINT "WT: Opstellen waarheidstabel" 
5489 PRINT "L : Laten zien van model” 


5490 PRINT "C : Laten zien van schijfcatalogus” 

5500 PRINT “NM: Nieuw model invoeren” 

5510 PRINT "VM: Veranderen model" 

5529 PRINT “VI: Verandeen ingangen en”: PRINT TAB(5); "start s 
imulatie” 

5539 PRINT “DU: Definiëren uitgangen” 

5549 PRINT "PU: Uitvoer laten zien” 

5557 PRINT “OD: Opslaan van model op diskette" 

5569 PRINT “OC: Opslaan van model op cassette” 

5570 PRINT “H : Deze commandolijst laten zien” 

5589 PRINT “ST: Verlaten van het programma” 

5593 PRINT 

5600 LOCATE „23 

5613 INPUT"# "; 

5629 ia 


GOSUB 2779: GOTO 5780 


5630 WT" THEN GOSUB 2949: GOTO 5780 

5640 L" THEN GOSUB 4209: GOTO 5780 

5650 C" THEN FILES: PRINT: PRINT: GOTO 5780 
5663 NM" THEN GOTO 272 

5670 VM" THEN GOTO 1492 

5680 PU“ THEN GOSUB 5279:GOTO 578% 

5690 VI” THEN GOSUB 4809:GOSUB 2779:GOTO 5780 
5700 DU” THEN GOSUB 4989:GOTO 5780 

5710 OD” THEN GOSUB 1169:GOTO 5780 

5720 OC" THEN GOSUB 1499 : GOTO 5780 


5730 
5740 
5750 ‚24 

5762 PRINT “Niet toegestaan commando” 
5778 PRINT 

5785 GOTO 5600 

5790 END 


Checksums: 
Gebruik het programma van paragraaf 4.6. 


19:DB53 29:BAD4 39:2533 49:C2D4 50: 1924 

69: 36EC 70: CED4 89:E953 85:E718 109: E280 
119:D278 129: 3A5B 139: OD7E 149: BCD7 159: A284 

169: BO93 blok-checksum : 749B 
179:5933 189: ABD4 199:030E 209:A370 219:34E4 
227:B89E 230:3564 240: AEC2 250:B636 269: 35D9 
270:0D27 289:B278 290: 5BED 300: 4D37 319:3510 

320: AA78 blok-checksum : EFE7 
330: TEAD 349: AE7A 357:86B5 360:B27A 379:C258 

387: B67A 389: 9861 497: 5512 410: 6A2F 429: 3043 

430: 5063 440: 9C5E 450: 7E34 465: DABA 470: B7BB 
489:0D74 blok-checksum : AF87 
493: SEDF 507: FD34 510: B2E8 520:658A 53, 
540: FF85 550:E26B 569:51C5 579:6494 58, 
599: C6EF 603: CAB 619:DA77 629:AD41 639:9585 
649: AFO1 blok-checksum : 3463 
650:CB50 669:FSA1 679:F821 689: AB56 2 

7100: 36D9 719:3677 720:6F76 739: 6EDF 
759:8134 769:9944 770: 38E4 7189:E294 790: DBBD 

805: O2E9 blok-checksum : 835 
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186 


845: 
899: 
945: 


1909: 
1950: 
1109: 


1169: 
1219: 
1260: 


1320: 
1378: 
1429: 


1485: 
1539: 
1589: 


1649: 
1699: 
1749: 


1809: 
1859: 
1909: 


1969: 
2019: 
2060: 


2120: 
2178: 
2220: 


2280: 
2330: 
2380: 


2440: 
2490: 
2540: 


2609: 
2650: 
2700: 


2760: 
2819: 
2860: 


2920: 
2970: 
3020: 


5F86 857: 38E4 
AF41 907: DE36 
AB58 959:391A 
blok-checksum : 
932D 1919:18C7 
GESO 1069:AD9F 
5838 1119:449B 
blok-checksum : 
A32E 1179:1947 
591F 1229:C94A 
5849 1279:1220 
blok-checksum : 
6659 1339:65F7 
5387 1389:71E8 
B9F2 1439:3873 
blok-checksum : 
6842 1490:DO9A 
ADC9 1540:663E 
DA1C 1599:B3C9 
blok-checksum : 
972B 1659:582F 
SA17 1709:198F 


95D1 1759:3D19 
blok-checksum : 
CE53 1819:06D7 
CCDC 186 2AF 


66EE 1919:19DF 
blok-checksum : 
4449 1979:539F 
SADD 2029:64A3 
66D9 2975:4E1B 
blok-checksum : 
5925 2139:33A7 
3E25 2189:3DAD 
35AD 2239:804E 
blok-checksum : 
3EBC 2299:71C2 
DF34 2349:6812 
3ECC 2399:73C9 
blok-checksum : 
DOC1 2459:273E 
2B3E 2500:D976 
3ECC 2550:682F 
blok-checksum : 
6892 2619:9736 
ABCA 2669:2C3E 
BCFE 2719:3ED4 
blok-checksum : 
D576 2779:3004 
9698 2829:1412 
8774 2875:D693 
blok-checksum : 
9A28 2930:D5F6 
6BE4 2989:7E97 
8817 3930:6719 
blok-checksum : 


7518 


F9968 


F85A 


5232 


7797 


13EC 


FCBA 


CD95 


E675 


B886 


995E 


C3B2 


EE78 


95D8 


3050:E157 
3100: 4401 
3150: 596D 
3200: 9BD9 
3210:GFF5 
3269: 3DEG 
3310: A029 
3369: 5158 
3370: 2D07 
3420:6924 
3470: A45F 
3520:6984 
3539: 5C7A 
3589: 53CB 
3639: 13F7 
3680: BF16 
3690: 519D 
3740: 1A73 
3795:9176 
3849: 6B5A 
3859:597D 
3900: 6AD9 
3950:D42A 
4000: BE16 
4019: 319D 
4069: 7B03 
4119: 19C7 
4169: 26B9 
4175: 28CA 
4220: A32A 
4270:B7F7 
4320:9510 
4330:97C4 
43809:0212 
4430: 5701 
4489: 196D 
4490: E7C2 
4540: 6C31 
4590:6C22 
4645: 2790 
4659: 3F22 
4709: BAE4 
4750:913C 
4800: 5D3C 
4819: 1A87 
4869: 667A 
4919:B79A 
4969: 6DA4 
4977: DBF6 
5029: 4673 
5070: 809C 
5129:59A4 
5139: 1FF4 
5189: BAD5 
5237: 4FB9 
5289:72AE 


3063: 
3119: 
3169: 


3220: 
3279: 
3329: 


3385: 
3430: 
3480: 


3540: 
3590: 
3649: 


3700: 
3750: 
3800: 


3869: 
391 
3960: 


4920: 
497 
4120: 


4189: 
423: 
4289: 


4349: 
4390: 
4440: 


4500: 
4559: 
4600: 


4669: 
4719: 
4760: 


4829: 
4879: 
4929: 


4989: 
5039: 
5085: 


5149: 
5199: 
5249: 


6CIF 
FADF 
55F4 


9C17 
C55C 
AC94 


69E4 
3492 
3456 


5308 
4F56 
89C25 


4DB9 
C158 
A92A 


F158 


3070: 
3120: 
3175: 


3230: 
3289: 
3330: 


3390: 
3440: 
3499: 


3559: 


3600 


3870: 
3920: 
3870: 


4030: 
4089: 
4139: 


4199: 
4240: 
4299: 


4350: 
4400: 
4450: 


4519: 
4569: 
4619: 


4670: 
4720: 
4770: 


4839: 
4889: 
4930: 


4995: 
5045: 
5099: 


5159: 
5200: 
5259: 


3AA5 
0361 
68E4 


6818 
6964 
O2E6 


6A64 
D376 
A158 


D38A 


:B4D6 
3650: 


3710: 
3760: 
3810: 


4BC6 


D475 
CBFD 
aFg4 


3207 
D776 
63D7 


DOF6 
BE68 
1996 


D4F6 
69A4 
5476 


6A64 
EFDA 
BCCF 


507D 
7E31 
DS5F6 


@13C 
D776 
6CA3 


5217 
EBD1 
BFFD 


1B27 
5BA8 
AAIC 


685A 
94FE 
53B9 


3080: 
3135: 
3189: 


3249: 
3290: 
3340: 


3400: 
3459: 
3503: 


3569: 
3619: 
3669: 


3720: 
377 
3820: 


3889: 
3939: 
3989: 


4045: 
409 
4149: 


4200: 
4251 
4302: 


4360 
4410: 
4465: 


4529: 
4570 
4620: 


4689: 


4730: 


4789: 


4849: 
4899: 
4940: 


5000: 
5059: 
5109: 


5169: 
5219: 
5269: 


6864 3999:4473 
71936 3149:218D 
6937 3199:1DA4 
blok-checksum : 
3433 3259:199F 
9919 3305:A170 
68D9 3359:5971 
blok-checksum : 
50C3 3419:68A2 
BAFF 3460:9840 
BEIF 3519:5A7B 
blok-checksum : 
3505 3579:BEDE 
B328 3629:D677 
6AE3 3679:57B9 
blok-checksum : 
D41F 3739:3744 
BA4 3780:C4AC 
55E4 3839:13B9 
blok-checksum : 
6C64 3897:6CE4 
B6E61 3949:76E9 
DA76 3999:E29F 
blok-checksum : 
BE24 4950:1992 
B89 4199:7EB2 
1BDF 4159:88F2 
blok-checksum : 
6BEC 4219:19C7 
CAE 4269:6A24 
1BE1 4319:4158 
blok-checksum : 


:D576 4379:745E 


A62A 4420:6010 
7763 4470:AD50 
blok-checksum : 
EFE3 4539:5481 


:OACF 4580:3601 


AF49 4630:04FF 
blok-checksum : 
A226 4690:6CA3 
8733 4740:1A3D 
6CE4 4790:DAF6 
blok-checksum : 
6CA4 4859:2159 
D8FA 4909:F4D1 
BED9 4959:6D24 
blok-checksum : 
Al2A 5919:7169 
69E4 5069:7158 
8279 5119:6924 
blok-checksum : 
9A49 5179:9CIB 
5849 5229:9318 
D676 5279:52D3 
blok-checksum : 


CDB5 


1FCA 


7333 


9672 


E537 


DAB6 


43BF 


F6AC 


62EB 


DS5DB 


B644 


5CBE 


BCF8 


7CCF 


5299: 
5349: 
5399: 
5449: 
5459: 
5500: 
555%: 
5600: 
5619: 
5669: 
5719: 
5769: 
5770: 
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5300 


5350: 
5400: 


5460: 
5519: 
5569: 


5629: 
5679: 
5729: 


5780: 


:9D35 
9831 
D576 


1DF6 
EEIF 
9E16 


9234 
BDEA 
2A0C 


6DC3 


5319: 
5363: 
5419: 


5479: 
5529: 
5579: 


5639: 
5689: 
5739: 


5790: 


21B1 
D158 
76C4 


B95A 
13ED 
B549 


A28B 
AZ10 
3797 


1B24 


5320: 
5370: 
5420: 


5489: 
5530: 
5589: 


5649: 
5699: 
5745: 


5281 5339:5618 
DE4F 5389:2280 
1457 5439:587E 
blok-checksum : 
CF9B 5490:A324 
398F 5549:5332 
1A24 5599:6D64 
blok-checksum : 
6AB5 5650:A27A 
BE67 5700:COOA 
9514 5759:D116 
blok-checksum : 
blok-checksum : 


62C3 


FBBB 


6E88 
D831 


6 SPELLETJES 


Alhoewel dit boek allereerst is bedoeld om serieuze toepassingen voor de MSX te geven 
willen wij u het genot van enige spelletjes niet onthouden. 

Tevens krijgt u hiermede inzicht in een aantal typische mogelijkheden van de MSX. 
Persoonlijk hebben we het meeste plezier beleefd aan het spel EXPLOSIE … we kennen 
zelfs enkele personen die er volledig aan verslaafd zijn geraakt. 


6.1 HET LETTERSPEL 


Dit spelletje munt uit door zijn eenvoud en dat nu is doorgaans het kenmerk van uitdagende 
spelletjes. 

De computer geeft ons steeds de letters A t/m J en wel in een willekeurige volgorde. ledere 
letter heeft daarbij een unieke positie; de eerste letter komt met 1 overeen, de tweede met 
2, etc. We kunnen de volgorde van de letters nu op een zeer speciale manier wijzigen. We 
geven namelijk steeds een letter door middel van zijn positienummer op en de letter die voor 
de aangegeven letter staat zal nu vooraan worden geplaatst en de letter direkt na de zo aan- 
gegeven letter komt nu achteraan te staan. 

Het voorbeeld verduidelijkt dit 


Voorbeeld: 


stork LETTERSPEL #4 


IDCFBGJHAE 
Zet : 5 


De eerste keer wordt een 5 ingevoerd. De letter B wordt vooraangezet en de hieropvolgen- 
de letter achteraan. 


sak LETTERSPEL se 


BIDCFJHAEG 
Zet : 4 
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De tweede keer wordt een 4 ingevoerd, wat tot gevolg heeft dat de C naar voren en de 
F naar achteren verhuist. 


“kk LETTERSPEL kk 


CBIDJHAEGF 
Zet 


Probeer de juiste (alfabetische) volgorde te vinden in een zo gering mogelijk aantal beurten. 


Programma: 


15 * %x* LETTERSPEL Xx 

29 DEFINT A-Z:B$="LETTERSPEL" 
39 CLS:A$="ABCDEFGHIJ" 

49 T=D:C=RND(-TIME) 

53 ON INTERVAL=305 GOSUB 319 

69 INTERVAL ON 

79 FOR C=1 TO 19 

89 Z=INT(RND(1)*9+1) 

97 GOSUB 289 

199 NEXT C 

119 LOCATE 6,2 

125 PRINT" %X* "B$" kkk ” 

139 LOCATE 4,6 

149 PRINT A$ 

159 LOCATE 6,8 

169 PRINT"Zet :"; 

179 C$=INKEY$:IF C$="" THEN 179 
189 Z=VAL(C$):PRINT Z 

199 IF Z=@ THEN 159 

2009 T=T+1 

215 GOSUB 280 

229 IF A$="ABCDEFGHIJ"THEN PRINT"GOED IN“T"BEURTE 
N":GOTO 245 

239 GOTO 139 

245 PRINT:PRINT"Nog eens (j/n)” 
250 B$=INKEY$:IF B$="" THEN 259 
269 IF B$="j" OR B$="J" THEN 19 


272 END 

285 ’ Xx manipulatie aan A$ ** 

290 A$=MID$(A$,Z, 1) +LEFTS(A$, Z-1)+RIGHT$(A$, 9-2) + 
MID$(A$, Z+1,1) 

325 RETURN 

310 B$=RIGHTS$(B$, 1) +LEFT$(BS$, 9) 

329 P=POS(1):Q=CSRLIN 

339 LOCATE 11,2 

349 PRINT B$:LOCATE P,Q 

355 RETURN 


6.2 MINI MANCALA 


Mini mancala is een originele creatie van C. Freelink. Het is gebaseerd op een oud Arabisch 
spel, waarbij stenen in kommetjes worden verdeeld. Er zijn vier bakjes: A en B zijn van de 
computer en C en D zijn van U. Als het spel begint liggen er twee stenen in elk bakje. 


6) 


B(computer) 


ORO 
@) 


D(speler) 


Om de beurt nemen de spelers de stenen uit één van hun eigen bakjes en verdelen ze één 
voor één tegen de klok in over de andere drie bakjes. 
U kunt er bijvoorbeeld voor kiezen om de stenen uit bakje D te verdelen. 


6) 
@) 


A(computer) LD B(computer) 


tegen de klok in 


©) 
() 


C(speler) D(speler) 


Na deze zet is bakje D leeg. Er zal trouwens altijd minstens één bakje leeg zijn want gedu- 
rende iedere zet mogen de te verdelen stenen nooit in het bakje waaruit ze gekomen zijn 
worden teruggelegd. 

Om te winnen moeten alle stenen in een van Uw eigen bakjes liggen. Zo kan de tegenstan- 
der immers geen enkele zet meer doen. 

We kunnen allereerst een moeilijkheidsgraad kiezen (1, 2 of 3: 1 is het gemakkelijkst). Als 
u met moeilijkheidsgraad 1 begint en u wint zal de volgende ronde automatisch in moeilijk- 
heidsgraad 2 gespeeld worden, Bovendien mogen we aangeven wie mag beginnen. Als 
u niet snel genoeg reageert komt het programma in de demo-mode. Door op de aangege- 
ven toets te drukken kunt u met spelen beginnen. 

Als U aan de beurt bent vraagt de computer van welk bakje U de stenen wilt verspreiden. 
Uiteraard geeft de computer steeds aan wat zijn eigen zet is. Na iedere zet toont de compu- 
ter hoe de stenen over de bakjes verdeeld zijn. 

Het is in feite verbazingwekkend dat een dergelijk ingewikkeld spel met zo'n kort program- 
ma beschreven kan worden, 


Tenslotte vestigen we de aandacht op het diagram dat hier is afgebeeld. Dit diagram toont 
alle mogelijke zetten, kortom alle strategische wegen die we in dit zo boeiende spel kunnen 
bewandelen. Het is een fraai voorbeeld van een met name strategisch spel. 


Programma: 


19 SCREENS: WIDTH4G 


29 REM —----mini mancala ——-- 
39 A=RND(-TIME) :W1=1500: W2=500 
49 GOTOS59G 


59 REM initialisatie 

69 DEF FNSP(X)=15+85*(XAND2) +6%( XAND1 ) 

79 V=-1:FOR C=1 TO 2:FOR X=g TO 3:GOSUB1060: PLAY 
“116t255m4@Oslo6c":NEXT X:NEXT C 

89 RESTORE 119:FORI=GTO3 

9D READSU(I) 

199 NEXTI 

118 DATA2, 9,3, 1 

129 RETURN 

139 REM schermlayout 

149 SCREEN 2:COLOR 1 

152 OPEN “GRP: " FOR OUTPUT AS #1 

169 IF AU THEN COLOR1:PRESET(48,5):PRINT#1, "D E M 
le) Stop=<F1>":ON KEY GOSUB 1159:KEY(1) ON 

179 N=0:FOR X=90 TO 165 STEP 75 

189 FOR Y=49 TO 199 STEP 69 

199 PLAY"s9m69300l1loic" 

209 CIRCLE(X, Y+6),36,14,,,.8 

210 PAINT(X,Y), 14,14 

220 CIRCLE(X,Y),30,1,,,.69 
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230 PAINT(X,Y), 1,1 

240 N=N+1:PRESET(X-3,Y+25), 14:PRINT #1,MID$( “ACBD 
"‚N,1) 

250 NEXT Y:NEXT X 

269 PSET(8,145):DRAW("c2s32r29d2129u2"):PAINT(20, 
159), 2,2 

275 RETURN 

285 REM invoeren 

290 IF B(2)=0 THEN PRESET(15,150):PRINT#1, “Geen k 
eus. Je gooit bak D":FOR WL=1 TO W1/3:NEXT:S=3:RE 
TURN 

309 IF B(3)=3 THEN PRESET(15,154):PRINT#1, "Geen k 
eus. Je gooit bak C":FOR WL=1 TO W1/3:NEXT:S=2:RE 
TURN 

319 PRESET (15,159):PRINT #1, "Jouw beurt, kies ba 
k C of D':IF AU THEN S=2-(RND(1)<.5):FOR WL=1 TO 
500 :NEXT WL: RETURN 

320 IF INKEY$<>"" THEN 329 

330 A$=INKEY$:IF A$="" THEN 330 

349 S=INSTR(1, " eCdD",A$):IF S=@ THEN330 

359 S=S\2+1: IFS=1THEN330 

369 RETURN 

375 REM beurt computer 

387 IF B(G)=} THEN PRESET(15,159):PRINT#1, “Ik kan 
alleen bak B spelen“:S=1:FOR WL=1 TO Wi:NEXT:RET 

URN 

390 IF B(1)=0 THEN PRESET(15, 159) :PRINT#1, “Ik kan 
alleen bak A spelen”:S=@:FOR WL=1 TO W1/3:NEXT:R 

ETURN 

400 PSET(15,159):PRINT #1, “Mijn beurt. “; 

419 FOR WL=1 TO W1/3:NEXT 

429 IF LE<3 AND RND(TIME)*LE<.6 THEN S=INT(RND(TI 

ME)*2):GOTO 450 

430 Q=B(2)+1JX(B(1)+10XB(O) ) 

449 S=1 

453 IF Q=143 OR Q=134 OR Q=611 OR Q=116 THEN S=@ 
469 IF B(S)=} THEN S=1-S 

470 PRINT #1, "Ik kies bak “+MID$("AB",S+1,1) 

489 RETURN 

499 REM verdelen tegen de klok in 

507 D=S 

510 FOR C=1 TO B(S) 

520 FOR WL=1 TOW2:NEXT:PLAY “m2690s3o4t129"+MIDS( 
“edefgab",B(S), 1) 

539 D=SU(D):IF D=S THEN 539 

54g X=S:V=G: GOSUB1G60 
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559 X=D:V=-1:GOSUB1G60 

560 NEXT C 

575 COLOR2:PSET(15,150):PRINT #1,STRING$(27,219): 
PSET(15, 155) :COLOR 1 

589 RETURN 

595 REM hoofdprogramma 

635 GOSUB 99P:REM spelnivo 

619 GOSUB139:REM scherm layout 

629 GOSUB 59:REM initialisatie 

635 IF PQ<3 THEN 699 

649 GOSUB280:REM zet invoeren 

655 GOSUB49G:REM verdelen 

66% IF B(3)=8 THEN 739:REM wint 

679 W2=W2-25:IF W2<6@ THEN W2=60 

687 Wi=W1-25:IF W1i<337 THEN W1=300 

69 GOSUB37G:REM beurt computer 

705 GOSUB4IG:REM verdelen 

719 IF B(Z)=8 THEN 789:REM verliest 

727 GOTO64G 

733 REM speler wint 

745 PLAY “o3t19dee. ecc. * 

75% GOSUB 575:PRINT#1, "Je hebt gewonnen !!!":FOR 
WL=1 TO W1:NEXT:GOSUB570 

760 LE=LE+1+(LE=3) :PRINT#1, “Nivo”;LE; 

779 GOTO 820 

789 REM speler verliest 

790 PLAY “t255o5co4bagfedce" 

835 GOSUB57G:PRINT#1, “Ik heb van je gewonnen |!!!" 
:FORWL=1 TO W1:NEXT:GOSUB570 

819 LE=LE-1-(LE=1):PRINT#1, "Nivo";LE; 

820 PRINT#1, “. Begin jij? (j/n)” 

830 IF AU THEN PQ=3+(RND(1)>.5):FOR WL=1T0300: NEX 
T WL:GOTO86G 

847 A$-INKEY$:IF A$="" THEN 840 

859 PQ=INSTR(1, “nNjJ",A$):IF PQ=D THEN 840 

869 V=D:FOR X=d TO 3 

870 IF B(X)=O THEN 887 ELSE GOSUB196:GOTO874 
887 NEXT X 

895 GOSUB57@:GOTO 625 

WD REM spelnivo 

915 KEY OFF: SCREENS, 9,5, 1:COLOR1, 12, 12 

920 WL=10D:LOCATE5,4:A8="M INI -—MANCAL A" 
:GOSUB1957:LOCATE3, 12 

930 WL=1d:A$="Kies het spelnivo (1--3) “:GOSUB195 
5 


349 T-g 
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957 A$-INKEY$:IF A$="" THENT=T+1 

969 IF T=497 THEN AU=l=l:A$="2" 

970 IF A$="" THEN 959 

980 IF INSTR(1,"123",A$)=D THEN950 

997 LE-VAL(AS):PLAY “s7m15@do3b":PRINTMIDS( "laag 
middelhoog”, 1+6X(LE-1),6):LOCATE3, 14 

1909 COLOR, 2,2:A$="Begint U ? (j/n)”:GOSUB1050 
1919 IF AU THEN A$="n":FOR WL=1 TO 9G0:NEXT WL:GO 

TO1930 

1929 A$=INKEY$:IF A$="" THEN1929 

1938 PQ=INSTR(1, "nNjJ",A$): IF PQ=0 THEN1J20 

1049 PLAY “s3m499Zolb":CLS:COLOR15, 6,6: RETURN 
1950 FOR X=1 TO LEN(A$):PRINTMID$(A$, X, 1) ; : FORW=1 
TOWL:NEXT W:NEXTX:RETURN 

1960 REM bijwerken bak 

1079 B(X)=B(X)-(V=-1)+(V=0) 

1989 P=B(X)-(V=0) 

rie X1=78+75*(X MOD 2)+5*VAL(MID$("12931435",P, 1 
) 

1199 Y1=31-60*(X>1)+1D*VAL(MID$("21192120",P,1)) 

1119 CL=1-5%*V 

1129 CIRCLE(X1, Y1), 4, CL 

1139 PAINT(X1,Y1),CL, CL 

1149 RETURN 

1159 RUN 


6.3 ABBA-SPEL 


Omdat de naam van de bekende popgroep uit alleen maar A's en B's bestaat, is deze naam 
zeer geschikt om er een puzzel van te maken. 

Als we het programma starten zien we een vierkant van 4 bij 4 met enkel A's en B's, Met 
behulp van de cursortoetsen kunnen we naar een bepaalde letter in dit vierkant gaan. Door 
op de RETURN-toets te drukken kunnen we een bepaalde letter van het vierkant aangege- 
ven. Door zo'n letter kunnen we steeds een horizontale en verticale lijn trekken. Alle letters 
die op deze lijnen liggen veranderen: een A wordt een B en een B wordt een A. 

Het voorbeeld verduidelijkt de situatie. 

Het is de bedoeling om uiteindelijk de volgende situatie te bereiken. 


ABBA 
ABBA 
ABBA 
ABBA 


Veel succes! 
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Programma: 


19 
20 
30 
je 
40 
59 
65 
75 
85 
97 
195 
119 
129 
139 
149 
159 
169 
179 
189 
199 
200 


)=P: 


219 
EXT 
220 
XO+ 
230 
NEX 
240 
250 
269 
270 
282 
290 
307 
31% 
320 
330 
347 
35% 
360 
370 
385 
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SCREENS : WIDTH4G 

KEYOFF : COLOR15, 1, 1 

A=RND(-TIME) :CLS:LOCATE8, 15:PRINT"Een ogenblik 
Rm. VS 

M=1 
DEF FNP(X, Y)=X+(Y-1) 4 
DIMZ(16,7),B(16),TR(16), TS(16),RP(25),PS(16) 
FOR X=1 TO 4:FOR Y=1 TO4 
N=FNP(X, Y):L=1 
FOR R=1 TO 4:Z(N,L)=FNP(R, Y):L=L+1:NEXT R 
FOR K=1 TO 4:IF Y=K THEN 129 

ZON, L)=FNP(X,K) :L=L+1 
NEXTK 
NEXTY:NEXTX 
AB=G:FOR K=1 TO 4:T=1+2X( (K=1)OR(K=4)) 
FORR=GTO12STEP4 

C=K+R:B(C)=T: TR(C)=T 
NEXTR: NEXTK 

COLOR15, 1, 1:CLS 

IF NOT QQ THEN QQ=1=1:SCREEN1, 2:GOSUB 530 

FOR C=l TO M:P=INT(RND(1)*16):P=P+(P=17):RP(C 
GOSUB510:NEXT C 
FOR X=1 TO16:TS(X)=B(X):PS(X) =4+3X(B(X)=-1) :N 
X 

X0=9G:YO=15:SP=D:FOR Y=1 TO 4:FOR X=1 TO 4:H= 
(X-1)X2D: V=YO+(Y-1) 23: NEFNP(X, Y) 

SP=S5P+1:PUT SPRITE SP, (H‚,V), 15, 4+3*(B(N)=-1): 
TX:NEXTY 

Pz=1 

N=4+3X(B(P)=-1) 

PUT SPRITE P,,4,N 

A$=INKEY$: IF A$="" THEN 279 

PUT SPRITE P,‚,,15,N 

A=ASC(A$) 

IF A=28 THEN P=P+1 

IF A=31 THEN P=P+4 

IF P>16 THEN P 
IF A=29 THEN P 
IF A=3@ THEN P 
IF P<1i THEN P=16 

IF A<>13 THEN 259 

FORT=1TO3: FORTT=1T07: SP=Z(P, TT) 
PS(SP)=PS(SP)-B(SP) 


1 
P- 
P- 


HIE 


1 
4 


395 PUT SPRITE SP,,,PS(SP) 

400 NEXT TT:NEXT T 

419 GOSUB510 

420 A=D:FOR T=1 TO16:A=A OR (B(T)<>TR(T)):NEXT T 
435 AB=AB+1:LOCATE 2,17:PRINT"Beurtnummer: “;AB+1 
440 IF A THEN 250 

450 J$="":IF AB>1 THEN J$="en" 

469 CLS:LOCATE 1,15:PRINT"Het is je in";AB; "beurt 
“+J$:PRINT" gelukt. “:PRINT:M=M+1:PRINT" Probeer n 
u“;M; “verschuivingen” 

473 PRINT:PRINT" Sla een toets aan” 

480 IF INKEY$="" THEN489 

495 GOTO14D 

500 END 

519 REM hussel 

520 FORT=1T0O7:B(Z(P, T))=-B(Z(P, T)) :NEXTT : RETURN 
530 SP=1:REM sprite maken 

540 :IF A=Z THEN RETURN 

557 :FORX=1 TOA:READV: V$=V$+CHR$(V) : NEXTX: SP 
RITE$(SP)=V$: SP=SP+1 : GOTO54G 

569 END 

570 DATA 32 :REM Abba 1 

587 DATA &HG,&H3,&H4,&H4,&HB,&HS,&HB,&HIF, &HIJ, & 
H1G,&H1D, &H1D, &HID, RHID, &H3B, RHO, KHD, KHC, &H20, KH 
29,8&H10,&H1D, &HID, &HFS, &HB, &HS, &HB, KHS, EHS, &HS, &H 
1C, &HD 

595 DATA 32 :REM Abba 2 

620 DATA &HD,&H3,&H4,&H4, RHS, &HS, KHC, EHI13, RHID, & 
H1J,&H10, &H1D, &H1O, &H1D, RHID, KHD, KHO, RHCD, &H2D, KH 
20,&H2D,&H1D, &H3D, RHDS, HB, &HS, &HS, KHB, &HS, &HB, &H 
30, &HO 

619 DATA 32 :REM Abba 3 

629 DATA &HO,&HF,&H4,&H4, &HB, &HS,&HE, &H11, &HID, & 
H1G,&H1O,&H1D, &H1J, &HID, RHI1, KHO, RHO, &HCO, &H20, KH 
20,&H20, &H20, &H6D, KHID, KHD, KHS, KHO, &HB, &HS, KHID, & 
HEG, &H@ 

635 DATA 32 :REM Abba 4 

649 DATA &HO,&H3F,&HIJ, &H1O, &HIO, &H1J, &HIF, &HIO, 
&H1O, &H1D, &H1D,&HID, &HID, HIG, KH3F, KHO, RHO, KHCD, & 
H20,&H20, &H23, &H2D, KHCO, &H2D, KHIG, &HS,&HS, &HS, &HS 
‚&H1D, &HED, &HO 

655 DATA @ 
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6.4 CODE KRAKEN 


Het zou hier om een spannend spionageverhaal kunnen gaan waarbij we zo snel mogelijk 
een brandkast moeten kraken om aan belangrijke informatie te komen. De code van de 
brandkast kent U natuurlijk nog niet en het is de vraag in hoeveel beurten U die kunt vinden. 
Doe er niet te lang over … stel dat er iemand komt! 

De code is opgeslagen in een computer en we weten dat die code bestaat uit drie series 
van 20 enen en nullen, waarbij we steeds uitgaan van de volgende serie: 


EIC LIE SCHEREN ERT) 


Die drie series zijn door „cyclische verwisseling" verkregen, in gewoon Nederlands wil dat 
zeggen dat getallen van het linkeruiteinde naar rechts worden verplaatst. Hier zien we een 
voorbeeld van 3 van dergelijke series tesamen met de som van die getallen voor iedere 
kolom, 


MO101011101010110101 
O1110101011010 00101 
C1001910111010101101 


22223020311305 


Deze series zijn natuurlijk voor U verborgen. Sterker nog U moet deze series weer zien terug 
te vinden, Als het spel begint krijgt U ook drie rijen getallen te zien, deze zijn ook verkregen 
door cyclische verwisseling van de reeks … helaas deze verwisseling is willekeurig. 

Een voorbeeld: als de bovenste rij 2 posities is opgeschoven, de middelste 4 en de onderste 
8, dan zien we op het beeldscherm 


10101110101011010100 
01010110101001010111 
11101010110101001010 


20000112111122310122 


Merk op dat we nu niet de som van iedere nieuwe kolom te zien krijgen, maar juist het ver- 
schil tussen deze som en de eerste (verborgen) som. 

Voor de eerste kolom geldt bijvoorbeeld dat de verborgen som 0 is en aangezien de som 
op het beeldscherm 2 is krijgen we nu 2 — O0 = 2 te zien. Bij de tweede kolom zijn zowel 
de verborgen som als de nieuwe som 2 dus we zien 2 — 2 = 0. We moeten nu steeds de 
rijen verschuiven en wel tot ze precies gelijk zijn aan de verborgen series. In dit geval zijn 
alle verschillen natuurlijk O, kortom de onderste serie op het beeldscherm toont dan alleen 
maar nullen. 

Door de cursor op een bepaalde positie in een bepaalde rij te zetten en vervolgens op RE- 
TURN te drukken komt het getal dat op de aangegeven positie stond vooraan de rij te staan. 
De hele rij is dus opgeschoven. De cursor staat nu op een zodanige positie dat als we op- 
nieuw RETURN geven zonder iets aan de cursorpositie te veranderen, de oude situatie, dus 
die van voor de laatste zet, teruggekregen wordt. 

Hoeveel beurten heeft U nodig om de code te kraken? We kennen super-spionnen die de 
klus in 10 beurten klaren 
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Programma: 


19 KEYOFF:SCREEN @:WIDTH 4@:COLOR15, 1,1 

25 CLEAR 2900: A=RND(-TIME) 

33 LOCATE 8,13:PRINT"Een ogenblikje a.u.b.” 

43 ON KEY GOSUB 599:KEY(1) ON 

53 DEFFNM(A) =A+20*(A>20) -20%*(A<1) 

63 DEFFNVS$(P, I)=MID$("19199151911191910110", FNM(A 
(I)-1+P), 1) 

70 DEFFNV(P, I)=VAL(FNVS(P, I)) 

85 DIM S$(29):FOR I=1 TO 29:A(G)=I:H$="":FOR P=1 
TO 29:H$=H$+FNV$(P,O):NEXT P:S$(I)=H$:NEXT I 

95 SCREEN 1,2:WIDTH 32:COLOR15, 1,1 


199 FOR I=1 TO 3:A(I)=1:NEXT I:IF INKEY$=" " THEN 
129 

119 FOR I=1 TO 3:A(I)=INT(RND(1)*29+1) :A(I)=A(I)+ 
(A(I)=21):NEXT I 


129 SOM$= FOR P=1 TO 29:S=0:FORI=1T03: S=S+FNV(P 

‚I):NEXT I:SOM$=SOM$+RIGHT$(STR$(S), 1):NEXT P:S$( 

Z)=SOM$: A(5) =D 

139 FOR I=1 TO 3:A(I)=INT(RND(1)*29+1):A(I)=A(I)+ 

(A(I)=21):GOSUB27G:NEXT I:LOCATE 4, 12:PRINTSTRING 

$(20, 192) 

149 ” 

159 GOSUB319: 'somverschil 

169 GOSUB439: ’maak cursor 

179 B$=INKEY$:IF B$="" THEN 179 ELSE B=ASC(B$) 

189 IF B=13 THEN GOSUB 460 

199 IF B=28 THEN PS=FNM(PS+1) 

200 IF B=29 THEN PS=FNM(PS-1) 

219 IF B=39 THEN RS=RS-1-(RS=1) 

2209 IF B=31 THEN RS=RS+1+(RS=3) 

230 IF Q THEN 539 

245 GOSUB449:GOTO 179 

250 * 

265 END 

270 REM print A$(i) 

285 LOCATE 4,5+2*1,9:FORT1=1 TO5G:NEXT T1 

299 PRINT S$(A(I)) 

345 RETURN 

315 REM print somverschil 

329 LOCATE 4,15,9 

335 Q=D:FOR Pl=1 TO 29:S=D: FORI1=1T03: S=S+FNV(P1, 

I1):NEXT I1:S=ABS(S-VAL(MID$(S8(@),P1,1))):Q=Q OR 
(S<>G):PRINTRIGHTS(STR$(S), 1); :NEXT P1 
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343 Q=NOT Q: RETURN 

359 REM spritemaker 

360 RESTORE 499 :S=1 

370 V$="": READ A: IF A=Z THEN RETURN 

387 FOR X=1l TO A:READ B:V$=V$+CHR$(B):NEXT X 

399 SPRITE$(S)=V$:S=S+1:GOTO 379 

495 DATA 32 :REM cursor 

415 DATA &H7F,&HC1,&H80, &H8D, &HSO, &HBO, KHBD, &HSD 
‚&H8G, &H8D, KHD, RHC1, &H7F,&HD, RHO, &HD, KHO, KHBO, KH 
87, &HBD, &HBD, EHBO, KHBD, KHBD, KHBO, HBD, EHBO, EHBO, & 
HO, &HD, RHO, &HO 

420 DATA @ 

430 GOSUB350: XO=30: YO=52: RS=1: PS=1 

440 PUTSPRITE1, (XO+(PS-1)*8, YO+(RS-1)*16),5,1 

459 RETURN 

469 REM schuiven 

470 IF PS=1 THEN 520 

487 I=RS:M=A(I) : MN=FNM(PS-1+M) : ST=SGN(PS-10) +(PS= 
19) :PS=22-PS 

490 A(I)=FNM(A(I)-ST) : GOSUB279 

500 IF A(I)<>MN THEN 497 

519 GOSUB310 

520 AB=AB+1 : RETURN 

539 REM einde spel 

547 SCREENG:LOCATE3,8:PRINT"Het is je in“;AB; “beu 
rt“;:IF AB>1 THENPRINT "en"; 

553 PRINT" gelukt. 

56% LOCATE 3,15:PRINT"Nog een keer? (j/n)“; 

570 A$=INPUT$(1):IF A$="n" OR A$="N" THEN END 

580 AB=0:GOTO 90 

599 RUN 


6.5 EXPLOSIE 


Het spel EXPLOSIE is stellig een spel waaraan je verslaafd kunt raken, dus als het niet meer 
zo goed gaat in het zakenleven. 

Het gaat om een bordspel waarbij men zelf mag kiezen of het bord 3 x 3, dan wel 4 x 
4 velden heeft. Wordt de keuze niet snel gemaakt dan raakt het programma in de demo- 
mode. Hier is uit te komen door op de aangegeven toets te drukken, 

Laten we als voorbeeld eens uitgaan van een 4 x 4 bord: 


Het is belangrijk te bedenken dat ieder veld een bepaalde capaciteit heeft. Deze capaciteit 
is gelijk aan het aantal buren dat met een gehele zijde aangrenzend is. Zo heeft een veld 
in een hoekpunt een capaciteit van 2 omdat het precies twee buren heeft. Een veld aan 
de rand heeft drie buren en dus een capaciteit van 3 en een veld in het midden heeft een 
capaciteit van 4. 

De spelregels zijn als volgt: 


om beurten zetten de computer en U een steen op een veld, en wel op een nog 
leeg veld of op een eigen veld (hier staan al eigen stenen op). We zetten een 
steen op een veld door met de cursortoetsen naar dat veld toe te gaan en vervol- 
gens op RETURN te drukken. Het is wel even wennen welke toets voor welke 
richting gebruikt moet worden. 

als door het zetten van een steen op een veld het aantal stenen gelijk wordt aan 
de capaciteit van dat veld, dan ontploft dat veld. De inhoud wordt dan verspreid 
over de aanliggende buren die nu allen de kleur van de speler krijgen. Zo kan 
men velden op de tegenstander veroveren. 

de winnaar is die speler die alle vakjes bezit of een oneindige keten explosies 
veroorzaakt 


Programma: 


19 REM **« EXPLOSIE %*x 

rd EE CX(4,4),CY(4,4),SB(5,5),ST(5,5),RB(5, 5), SQ 
30 A=RND(-TIME):KEY OFF:DEFINT A-Z 
45 X( 15:YO=149:REM positie bord 

50 RX=1:RY=1 

69 COLOR 1,5,5 

73 REM ——-explosie--—— 

89 SCREENS 

9D LOCATEIJ,B:PRINT"E XP LOS IE” 
199 REM initialisatie 

119 GOSUB 360 

129 REM spelen 
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139 
149 
159 
169 
179 
185 
199 
205 


REM 

IF AU THEN GOSUB989:GOTO 175 

IF PL=1 THEN GOSUB59G:NT=NT+1 

IF PL=-1 THEN GOSUB98G 

PL=-PL 

IF NOT ET THEN 149 

REM eind 

COLOR 4:PRESET(15, 179) :PRINT#1, “"GEEXPLODEERD 


It Jij “;:IF PL=-1 THEN PRINT#1, “wint” ELSE PRINT 


#1, 


219 
220 
230 
249 
250 
260 
270 
280 
290 
300 
319 
320 
330 
347 
350 
369 
370 
380 
397 
400 
419 


EY(1) ON: 


429 
430 
447 
450 
460 
470 
480 
499 
507 
519 
) 

520 
539 
54g 
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‘verliest 


PLAY"s14m1golliec", “s13m11021l1dd" 
IF PLAY(G) THEN 229 

FOR WL=1 TO 6@7:NEXT WL: RUN 

REM kop RB > SB 

FOR X=1 TO SI 

FOR Y=1 TO SI 

SB(X, Y)=RB(X, Y) 

NEXT Y:NEXT X 

RETURN 

REM kop SB > RB 

FOR X=1 TO SI 

FOR Y=1 TO SI 

RB(X, Y)=SB(X, Y) 

NEXT Y:NEXT X 

RETURN 

REM initialisatie 

LOCATE 5,15 

PRINT"Welke bordgrootte? (3 of 4)" 
AU=1=9: T=0 

A$=INKEY$: IF A$="" THEN T=T+1 

IF T=309 THEN AU=1=1:PL=1:ON KEY GOSUB 1889:K 
=4+(RND(1)>.5) : GOTO45G 

IF A$="" THEN 490 

IF A$<>"3" ANDAS<>"4" THEN 490 
SI=VAL(A$) 

PLAY “o5s3m3ggdc" 

FOR X=1 TO SI 

FOR Y=1 TO SI 

ST(X, Y)=4+(X=1)+(XESI)+(Y=1) H(YESI) 
NEXT Y 

NEXT X 

PRINT: PRINT: PRINT" Wil jij beginnen? (j/n 


IF AU THEN 559 
A$=INKEY$: IF A$="" THEN 530 
PL=INSTR(1, “jJnN",A$):IF PL=@ THEN 539 


557 PLAY “o3s3m390Gc" 

560 IF PL<3 THEN PL=1 ELSE PL=-1 
577 GOSUB 1399 

589 RETURN 

597 REM zet speler 

697 GOSUB 1679 

619 IF RB(MX,MY)<@ THEN 607 

629 GOSUB 245 

637 X=MX:Y=MY:DI=-1 

649 GOSUB675 

659 GOSUB3G0 

662 RETURN 

675 REM explosie 

689 SB(X,Y)=SB(X, Y)+PL 

699 NE=J 

790 IF DI THEN X1=X:Y1=Y:GOSUB930 
719 XP=D 

729 FOR Y=1 TO SI 

730 FOR X=1 TO SI 

740 IF ABS(SB(X,Y))<ST(X,Y) THEN 850 
750 XP=-1 

767 NE=NE+1 

110 SB(X,Y)=SB(X, Y)-ST(X, Y)XPL 
789 IF NOT DI THEN 819 

790 Xl=X:Yl=Y 

899 GOSUBI3G 

819 Xl=X:Y1l=Y-1:GOSUB 890 

829 Xl=X+1:Y1=Y:GOSUB 899 

B37 Xl=X:Y1=Y+1:GOSUB 899 

847 Xl=X-1:Y1l=Y:GOSUB 899 

857 NEXT X:NEXT Y 

869 ET=(NE>1. 5*SIXSI) 

875 IF XP AND NOT ET THEN 719 

889 RETURN 

899 REM optellen bij buren 

97 SB(X1,Y1)=PLK(ABS(SB(X1,Y1)) +1) 
919 IF DI AND (ST(X1,Y1)>9) THEN GOSUB930 
927 RETURN 

937 REM druk veld af 

940 IF INKEY$=" " THEN FOR WL=1 TO 500:NEXT WL 
957 PLAY “o3s8m7gl4c" 

9679 GOTO 1540 

977 END 

987 REM zet computer 

997 PRESET(15, 179) 

1997 IF AU THEN 1939 
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1918 COLOR 1:PRINT#1, “Mijn beurt „……” 
1929 GOTO195G 
1939 IF PL=1 THEN COLOR14:PRINT#1, “Speler aan zet 


1940 IF PL=-1 THEN COLOR1:PRINT#1, “Computer aan z 
et. ” 

1950 BE-1000 

1969 FOR TX=1 TO SI 

1975 FOR TY=1 TO SI 

1989 IF SGN(RB(TX, TY))=-SGN(PL) THEN 1152 

1497 GOSUB 249 

1199 X=TX:Y=TY:DI=g 

1119 GOSUB670:REM expl. 

1129 IF ET THEN MX=TX:MY=TY:GOTO 1179 

1139 GOSUB1260:REM evaluatie 

1149 IF (EN<BE) OR ((EN=BE)AND(RND(TIME)<.4)) THE 
N BE=EN:MX=TX:MY=TY 

1150 NEXT TY 

1169 NEXT TX 

1175 REM uiteindelijke zet 

1189 PRESET(15,174):COLOR 5:PRINT#1, STRINGS(20, 21 
9) 

1199 GOSUB240 

1295 X=MX:Y=MY:DI=-1 

1219 CL=1:IF PL=1 THEN CL=14 

1229 PRESET(15,179):COLOR CL:PRINT#1, “Dit is de z 
et .….“:RX=MX:RY=MY:GOSUB1849: PRESET(15, 178) : COLO 
R 5:FORWL=1 TO 159:NEXTWL:PRINT#1,STRING$(29, 219) 
:CL=4: GOSUB1840 

1239 GOSUB675:REM expl. 

1249 GOSUB3G0 

1259 RETURN 

1269 REM evaluatie 

1279 EN=0 

1289 FOR X=1 TO SI 

1295 FOR Y=1 TO SI 

1307 EN=EN+SB(X, Y) 

1319 IF SB(X,Y)<ST(X,Y)-1 THEN 1379 

1329 EN=EN-2 

1335 IF SB(X+1,Y)=ST(X+1,Y)-1 THEN EN=EN+10 

1345 IF SB(X,Y+I)=ST(X,Y+1)-1 THEN EN=EN+19 

1359 IF SB(X-1,Y)=ST(X-1,Y)-1 THEN EN=EN+19 

1369 IF SB(X,Y-1)=ST(X,Y-1)-1 THEN EN=EN+19 

1375 NEXT Y:NEXT X 

1385 RETURN 

1399 REM ini 
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1455 


FOR X=1 TO SI 


1419 FOR Y=1 TO SI 

1420 CX(X,Y)=XO+28*(X-1)-2OX(Y-1) 

1435 CY(X,Y)=YO-2DK(Y-1)-14K(X-1) 

1449 NEXT Y:NEXT X 

1459 CLS: COLOR1, 5, 5: SCREEN2 

1469 OPEN “GRP: FOR OUTPUT AS #1 

1475 FOR X=1 TO SI:FOR Y=1 TO SI 

1489 XI=CX(X, Y)-5:YI=CY(X, Y) +10 

1499 PSET(X1,Y1), 4 

1535 DRAW" s4M+26, -13M-18,-18M-26,+13M+18, +18" 
1519 NEXT Y:NEXT X 

1529 IF AU THEN PRESET(15,19):PRINT#1, "D E MO 
Stop=<F1>" 

1539 RETURN 

1549 REM plaats stapel 


1559 
1569 


KKECK(X1,Y1):YY=CY(X1, YI) 
L=ABS(SQ(X1, Y1)):CL=5:GOSUB 1589:SQ(X1, Y1)=A 


BS(SB(X1, Y1)) 


1579 


L=ABS(SB(X1, Y1)):CL=-1X(PL=-1)-14X(PL=1): IF 


SB(X1, Y1)=3 THEN RETURN 


1589 
1599 
1695 
1619 
1629 
1639 
1649 
1659 
1669 
1679 
1689 
1699 
1755 
1710 
1729 


1730 
1740 


PRESET(XX, YY) 

FOR Ni=1 TO L 

CIRCLE STEP(Z,0),4,5,,,.8 

CIRCLE STEP(G,0),4,CL,3.14,6.28,.8 
COLOR CL 


DRAW" S4BM-4, JU2BM+8, +2U2BM-4, 7" 
NEXT N1 

CIRCLE STEP(9,Z),4,CL,,,.8 
RETURN 

REM invoer zet speler 


PRESET(15, 175) :COLOR 14:PRINT#1, "Jouw beurt” 
CL.=14:GOSUB1840 

A$=INKEY$: IF A$="" THEN 1709 

IF A$=CHR$(13) THEN1730 

IF PLAY(G) THEN 1729 ELSE PLAY “14o2s2m5@0%c 


MX=RX:MY=RY 
IF A$=CHR$(28) THEN MX-MX+1:IF MX>SI THEN 17 


ZO ELSE 1800 


1759 


IF A$=CHR$(29) THEN MX-MX-1:IF MX<1 THEN 179 


D ELSE 1899 


1769 


IF A$=CHR$(3Z) THEN MY=MY+1:IF MY>SI THEN 17 


GP ELSE 1800 


1775 


IF A$-CHR$(31) THEN MY=MY-1:IF MY<1 THEN 175 


D ELSE 1844 


205 


1789 IF A$-CHR$(13) THEN PLAY" 14s4m25@Zo6c":CL=4: 
GOSUB1849: GOTO1829 

1799 GOTO 1799 

1899 CL=4:GOSUB1849:CL=14:RX=MX:RY=MY:GOSUB 1849 
1819 GOTO1790 

1829 PRESET(15,179):COLOR 5:FOR T=1 TO 30D:NEXT T 
:PRINT#1, STRINGS$(25, 219) 

1839 RETURN 

1849 REM plaats cursor 

1859 COLOR CL:PRESET(CX(RX,RY)-5, CY(RX, RY) +10) 
1869 DRAW"C=CL;S4M+26, -13M-18,-18M-26, +13M+18, +18 


1879 RETURN 
1889 RUN 


6.6 DO YOU MIND, MASTER? 


DO YOU MIND MASTER is ongetwijfeld een superspel; het is eenvoudig en moeilijk tegelijk. 
Het spel zal zeker voor het nodige „aangenaam verpozen’ zorgen. 

De computer neemt 4 verschillende getallen tussen de 1 - 9 in gedachten en U dient die 
getallen dan te raden. Daartoe voert U steeds 4 getallen in een bepaalde volgorde'in. De 
computer meldt ten eerste hoeveel getallen in het rijtje in ieder geval met de te raden getal- 
len overeenstemmen. Ten tweede hoeveel getallen op de juiste plaats staan. 

Na het RUN-commando kan het spel beginnen. In hoeveel beurten kunt u de combinatie 
vinden, 


Voorbeeld: DO YOU MIND, MASTER? 


geef 4 getallen geraden juiste plaats 


1278 hd 

3517 hhh 

5741 dad * 
7451 ld ud 


Geraden in 4 beurten! 


Nog eens? 
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Programma: 


10 REM *** DO YOU MIND MASTER **x* 
29 KEYOFF : SCREENS: WIDTH4G: COLOR15, 1, 1 
35 KOP$=" DO YOU MIND, MASTER? 
geef 4 ge 
tallen geraden juiste plaats 


49 LOCATEG, Z: PRINTKOPS$ 

50 R=5:A=RND(-TIME) :N=0 

69 FORI=1TO4:A(I)=INT(RND(1)#9+1) :A(I) =ZA(I) +(A(I) 
=10) 

70 NEXTI 

87 FORK=1T03: FORJ=K+1T04: IFA(K) =A(J) THEN6G 

9D NEXTJ:NEXTK 

199 KK=6: I=1:FORJ=1T04:B(J)=-1:NEXTJ 

119 LOCATEKK, R: A$=INPUT$(1) : A=ASC(A$) 

129 IF A=28 AND KK<12 THENKK=KK+2: I=I+1 

139 IF A=29 AND KK>6 THENKK=KK-2: I=I-1 

149 IFA=13 THEN17 

159 IFA<4BORA>57THEN1 19 

169 B(I)=VAL(A$) : LOCATEKK, R: PRINTAS; : A=28 : GOTO120 
179 FORJ=1T04: IFB(J) =-1 THEN I=J : KK=4+2%1: GOTO110 
189 NEXTJ 

199 N=N+1:G=9: P=0 

209 FORK=1T04: FORJ=1T04 

219 IFA(K)=B(J)THENG=G+1 

220 NEXTJ 

230 IFA(K)=B(K)THENP=P+1 

249 NEXTK 

250 LOCATE19,R:PRINTLEFTS(STRINGS(4, “*"),G) 

260 LOCATE3G, R: PRINTLEFTS(STRING®(4, “*"),P) 

279 GOSUB340 

289 IFP<4THEN 190 

295 GOSUB34D : GOSUB34G 

3090 LOCATE3,R:PRINT"Geraden in”; 
319 LOCATE3, R+2:PRINT "Nog eens?’ 
320 AS=INPUT$(1):IF A$= eN OR A$="n"“THEN END 
335 RUN 

340 IFR<1I9THENR-R+2: RETURN 

359 LOCATEG, 23: PRINT: LOCATEG, 9: PRINTKOPS$ 

36% LOCATEO, 23: PRINT: LOCATEG, @: PRINTKOPS$ 

375 RETURN 


; “beurten!” 
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7 TEKSTVERWERKER EN DATABESTANDEN 


Programma's voor tekstverwerking en het beheren van databestanden behoren stellig tot 
de meest geliefde programma's. Is het dan ook nog mogelijk deze twee programma's sa- 
men te voegen, dan wordt een bijzonder mooi geheel verkregen. De nu volgende program- 
ma's bieden u deze mogelijkheid 


7.1 TEKSTVERWERKER 


Dit programma kent alie belangrijke functies nodig voor tekstverwerking en is daardoor zeer 
waardevol. Met behulp van dit programma kunnen we brieven opstellen, hierin verbeterin- 
gen aanbrengen. de tekst opslaan op cassette of diskette en afdrukken op een printer. Zelfs 
heeft het programma de zogenaamde „mail-merge” faciliteit. Dit houdt in dat we het pro- 
gramma zelf diverse adressen of andere gegevens in de tekst kunnen laten invullen. Deze 
gegevens komen uit een bestand gemaakt met het databestandenprogramma uit paragraaf 
72, 


Nadat het programma is ingetypt en de checksums gecontroleerd (zie par 4.6) starten we 
de tekstverwerker met het commando; 


RUN”TV.BAS <SRETURN> 


Na even gewacht te hebben verschijnt op het scherm: 


Pe KR ET | 
IKOPIEERIOPTIES | KIJK | ZOEK | SAVE | 
1 WIS IWIJZERSI PRINT | VERVANGI LOAD | 
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Onderaan het scherm staan diverse commando's. Deze worden verderop behandeld. 
We zien dat linksboven op het scherm een geïnverteerde S staat. Dit noemen we de begin- 
wijzer. Later komt aan de orde waar deze voor dient. Naast deze beginwijzer zien we de 
cursor. De cursor is de positie-aanwijzer op het scherm. We kunnen nu gaan typen. Aan 
het einde van een schermregel kunnen we gewoon doortypen. Het betreffende woord 
wordt meestal een beetje vreemd afgebroken, maar bij het afdrukken op de printer wordt 
dat wel gecorrigeerd. 

Als we een alinea willen afsluiten drukken we op de RETURN-toets. De cursor gaat nu, in 
tegenstelling tot wat we zouden verwachten, niet naar de volgende regel. Op het scherm 
verschijnt een geïnverteerde P. Dit betekent dat de printer hier wél met een nieuwe alinea 
zal beginnen. We kunnen gewoon verder typen. 

We moeten afraden om met de cursor een regel naar beneden te gaan, op de printer wordt 
het resultaat zelden fraai. 

Een paar basisbewerkingen zijn het verwijderen en invoegen van tekst. We zullen beginnen 
met het verwijderen van tekst. Dit kan op twee manieren: ten eerste door gebruik van de 
toels met het opschrift BS (BackSpace). Het teken links van de cursor wordt nu verwijderd, 
de tekst rechts van de cursor zal aansluiten. Ten tweede door gebruik van de toets met het 
opschrift DEL (DELete). Hierdoor wordt het teken waarop de cursor staat gewist. Ook nu 
zal de tekst rechts van de cursor aansluiten. 

Letters kunnen op de plaats van de cursor ingevoegd worden door op INS (INSert) te druk- 
ken. De cursor verandert nu van vorm en we kunnen tekst tussenvoegen. Het invoegen 
wordt uitgeschakeld door nogmaals op de INS-toets te drukken. 

Een zeer belangrijk aspect van een tekstverwerker is wel de cursorbesturing. Met behulp 
van de cursortoetsen kunnen we de cursor in de vier richtingen verplaatsen: 


t één teken naar boven 

+ één teken naar beneden 
aad één teken naar rechts 

- één teken naar links 


Dan zijn er nog twee mogelijkheden om de cursor te verplaatsen: 


HOME de cursor gaat naar het begin van de tekst 
CLS de huidige cursorpositie wordt de eerste positie op het scherm 


COMMANDO'S 


Onderaan het scherm staan een tiental commando's. Deze kunnen we gebruiken door de 
bijbehorende functietoets in te drukken. Dit zijn: 


F1 Kopieer 
F2 Opties 
F3 Kijk 

F4 Zoek 
F5 Save 
F6 Wis 

F7 Wijzers 
FB Print 
F9 Vervang 
F10 Load 


Voor de laatste vijf commando's moet dus de SHIFT-toets tesamen met de betreffende func- 
tietoets worden ingedrukt. 

Voor we deze commando's behandelen, zullen we eerst een en ander uitleggen omtrent 
de zogenaamde wijzers” 
Er zijn twee wijzers, een begin- en een eindwijzer. Na het opstarten van deze tekstverwerker 
staat de beginwijzer op de allereerste positie van de tekst. Deze is zichtbaar als een geïnver- 
teerde S (start). De eindwijzer staat op de allerlaatste positie van de tekst en is zichtbaar als 
een geïnverteerde E (einde). Deze E staat op de laatste positie die voor tekst gereserveerd 
is, De tekst die we kunnen intypen heeft dus een eindige lengte. 

We kunnen de beginwijzer verplaatsen door de control-toets samen met de S toets in te 
drukken. De beginwijzer komt dan op de huidige cursorpositie te staan, 

De eindwijzer kunnen we verplaatsen door de cursor op de gewenste positie te plaatsen 
en de control-toets samen met de E in te drukken. Het is niet mogelijk de beginwijzer na 
de eindwijzer te plaatsen. 

Alle commando's die we kunnen geven met behulp van de functietoetsen hebben alleen 
betrekking op de tekst tussen de begin- en eindwijzer, met uitzondering van F5. 

Deze wijzers kunnen teruggezet worden op hun oorspronkelijke positie door het indrukken 
van functietoets F7. Dus: 


Control-S verplaatsen beginwijzer 
Control-E verplaatsen eindwijzer 


Hieronder volgt een overzicht van de werking van de verschillende commando's: 
F1:Kopieer 


De tekst tussen begin- en eindwijzer wordt tussengevoegd voor de cursor. De cursor mag 
zelf echter niet tussen de begin- en eindwijzer staan. 


F2:Opties 


Nadat we deze functietoets hebben ingedrukt, verschijnt het volgende op het scherm: 


DEFAULT + 
CAS% 


Ë 
Ë 


STRINGS 
ZOEKSTRING _ : *5 « 
VERVANG DOOR : * * 
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Verschillende waarden kunnen worden ingevoerd. Om tussen de verschillende regels te 
kunnen wisselen gebruiken we de cursor-omhoog en de cursor-omlaag toetsen. Om binnen 
een waarde iets te veranderen kunnen we gebruik maken van de cursor-links en cursor- 
rechts toetsen. 


REGELBREEDTE 

Hiermee kunnen we de afdrukbreedte instellen. Het minimum aantal tekens per regel is 40, 
het maximum 250. Het invoeren van deze waarde gaat echter op een ietwat ongewone wij- 
ze. Met behulp van de cursor-links en cursor-rechts toetsen kunnen we deze waarde af laten 
tellen c.q. op laten lopen. 

PAPIERREGELS 

Hiermee kunnen we het aantal regels dat op een printervel past aangeven, Minimaal is dit 
het aantal regels dat bij TEKSTREGELS is ingevoerd, maximaal 100. Het invoeren gaat op 
dezelfde wijze als bij REGELBREEDTE 

TEKSTREGELS 

Het aantal regels dat we op een printervel willen laten afdrukken kunnen we hiermee instel- 
len, Dit is minimaal 20, maximaal het ingestelde aantal PAPIERREGELS. Het verschil tussen 
het aantal PAPIERREGELS en het aantal TEKSTREGELS wordt gelijkelijk verdeeld over het 
begin en het einde van het printervel. Het instellen gaat weer op dezelfde wijze als bij RE- 
GELBREEDTE. 

FILENAAM 


Hier kunnen we de filenaam van de te laden of te saven file opgeven. Bij het laden van een 
file wordt de tekst in het geheugen gewist. 


DEVICENAAM 

De naam van het apparaat waarop de file gesaved moet worden, of waarvan een file gela- 
den moet worden. Er kan gekozen worden uit cassette (CAS) en diskette (A of B) en als uit- 
zondering hierop de quickdisk (QD) 

ZOEKSTRING 

Als een zoekcommando gegeven wordt moet naar de ingevulde tekst (string) gezocht wor- 
den. Indien een vervangcommando gegeven wordt is dit de (oude) tekst die door nieuwe 
tekst vervangen moet worden. 

VERVANG DOOR 


Indien een vervangcommando gegeven wordt wordt de gezochte tekst (ZOEKSTRING) ver- 
vangen door de hier ingevulde tekst. 
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F3:Kijk 


Met dit commando kan bekeken worden hoe de tekst er straks op de printer zal gaan uit- 
zien. Met de cursortoetsen kunnen we naar links, rechts en onder lopen. De cursor-omhoog 
toets zorgt ervoor dat het begin van de tekst weer in beeld komt. Door het geven van een 
RETURN verlaten we dit commando. 

In de KIJK-mode kan de tekst alleen bekeken worden, dus niet gewijzigd, 


F4:Zoek 


Zoek in het tekstdeel tussen de begin- en eindwijzer naar het gezochte woord. Dit woord 
moeten we eerst in de opties (F2) hebben ingevuld. Het eerste voorkomen van het gezochte 
woord wordt gevonden. Dit wordt bovenaan het scherm gezet. Als we het volgende voorko- 
men van het woord willen zoeken, dan moeten we eerst de beginwijzer verzetten. We ver- 
plaatsen de cursor één positie naar rechts en geven control-S. Als we nu opnieuw F4 geven 
wordt het volgende voorkomen van de gegeven tekst gezocht. 


F5:Save 

De file wordt opgeslagen onder de bij OPTIES opgegeven naam en op het bij OPTIES op- 
gegeven device (randapparaat). Vergeet niet eerst de cassetterecorder aan te zetten als 
daarop gesaved moet worden. 

F6:Wis 

De tekst tussen begin- en eindwijzer wordt gewist. Dit kan niet ongedaan worden gemaakt. 
F7:Wijzers 


Zet de begin- en eindwijzer terug op de posities die ze hadden direct na het opstarten. Dit 
zijn de eerste en laatste posities van de tekst. 


F8:Print 


Het stuk tekst tussen begin- en eindwijzer wordt afgedrukt. Indien lettertekens worden ge- 
bruikt die met behulp van de CODE-toets gemaakt zijn, dan moet wel een MSX-printer ge- 
bruikt worden. Er wordt standaard altijd uitgevuld. 

Indien aan het begin van een regel spaties staan worden deze gehandhaafd. Op deze ma- 
nier is het mogelijk inspringingen te maken. 

De printer-instellingen kunnen ingegeven worden bij de OPTIES (F2). 


F9:Vervang 

De in OPTIES aangegeven tekst (oude string) wordt automatisch vervangen door de tekst 
achter VERVANG, eveneens in OPTIES. Dit geldt alleen tussen begin- en eindwijzer en al- 
leen indien dit in het geheugen past. Dus als de nieuwe tekst langer is dan de oude tekst 
en de tekst is ongeveer maximaal van lengte, dan is het mogelijk dat het geheugen vol 
raakt 

F10:Load 


Een tekst die is opgeslagen wordt in het geheugen geladen. Eventueel aanwezige tekst 
gaat verloren. 
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SAMENGESTELDE COMMANDO'S 


Het is mogelijk door het geven van meer dan een commando een „nieuw' commando te 
maken. Als voorbeeld: De hele tekst kan worden gewist door eerst WIJZERS en vervolgens 
WIS te geven. 

Tekst kan verplaatst worden door begin- en eindwijzer om de betreffende tekst te zetten, 
de cursor op de bestemmingsplaats en achtereenvolgens KOPIEER en WIS te geven. 


CONTROL-KARAKTERS 


Deze worden gemaakt door de control-toets samen met het betreffende karakter in te druk- 
ken. We hadden dit al gezien bij het verplaatsen van de begin- en eindwijzer. 
Nog twee control-karakters zijn van belang: 


control-B Paginascheiding. De huidige alinea eindigt hier en een nieuwe pagina 
wordt begonnen. Dit geldt alleen voor de printer, 


control-D Zie onder MAIL/MERGE. 
ALGEMENE OPMERKINGEN 
Natuurlijk is het zoals altijd van groot belang om regelmatig te saven. 


Indien meer dan één toets tegelijk aangeslagen wordt zal het programma dat niet blokke- 
ren, maar er iets in proberen te herkennen. Dit kan dus ook een WIS of LOAD opdracht 
zijn. Het gevolg hiervan is verlies van de tekst. Het geheel wissen van de tekst kan voorko- 
men worden door de begin- en eindwijzer direct na elkaar te plaatsen. Tegen een LOAD- 
actie kan niets gedaan worden. 


Mocht er iets mis gaan, waardoor het programma per ongeluk verlaten wordt druk dan me- 
teen op F5. Het programma wordt nu opnieuw gestart zonder dat er tekst verloren gaat. 
Gewoon herstarten, dus met verlies van tekst, kan door het intypen van RUN. 


Indien de standaardinstellingen voor de printer en het device (randapparaat) niet overeen- 
komen met de standaardinstellingen van de aangesloten printer en het aangesloten device 
dan kunnen deze zo veranderd worden dat niet telkens het commando OPTIES gegeven 
hoeft te worden om dit aan te passen. In regel 20005 staan deze instellingen. Door wijziging 
van deze regel kunnen deze aangepast worden. 


Als gebruik wordt gemaakt van een TV als beeldscherm, of van een monitor met geluid, 
horen we bij het maken van een fout een waarschuwingsgeluid. Ook elke toetsaanslag 
maakt geluid, 


Beëindig het programma door de computer uit te schakelen. 
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Programma: 


nk 
'* MSX- TEKSTVERWERKER * 
dd VERSIE 1.1 1985 * 
Eik H GROOT LIPMAN * 


KE eeherhhaerahardhedererhehhad 
‚ 


ODA 


CLEAR 300, 45000!:DEFINT A-Z:DEF FNH(X)=X\256+255:DEF FNL(X) 
=X MOD 256-256%(X MOD 256 < @) 

18 GOTO 20090 

15 REM INTYPEN VAN TEKST 

20 D=0:IF PEEK(CK)=211 THEN D=1 

23 IF PEEK(CK)=197 THEN IF PEEK(CK-1)<>211 THEN D=-1 ELSE IF 
CK<TT THEN D=1 ELSE D=-2 

25 IF D<>@ GOTO 183 

26 A$=INKEY$:IF A$="" GOTO 20 

30 A=ASC(A$):IF A<28 GOTO 200 ELSE IF A<32 GOTO 69 ELSE IF A= 
127 GOTO 329 ELSE IF A>191 AND A<224 GOTO 20 

49 IF IM THEN U=USR9(CK) 

45 IF PEEK(CK)=211 OR PEEK(CK)=197 GOTO 29 ELSE POKE CK,‚A 

52 GOTO 120 

55 REM CURSORBEWEG INGEN 

62 CD=STICK(O) 

79 ON CD GOTO 109, 110, 120, 130, 149, 150, 160, 170 


189 
189 
189 
183 
189 
189 
189 


1 
189 IF NOT PEEK(&HFBEB) AND 1 AND A<32 THEN D=D*10 
183 CK=CK+D 
+85 IF CK<HK THEN IF HK-49>=T5 THEN HK=HK-49:GOTO 185 ELSE HK 
=TS: IF CK<HK THEN CK=HK ELSE ELSE IF CK>HK+799 THEN IF HK+83 
9<=TT THEN HK=HK+49:GOTO 185 ELSE HK=TT-799: IF CK>HK+799 THE 
N CK=HK+799 
199 GOTO 590 
200 REM CONTROLCODES 
205 ON INSTR("SSPBDHMKLR",CHR$(A+64)) GOTO 220, 239, 249, 250, 26 
2,279, 289, 299, 390, 319 
218 GOTO 20 
229 IF CK>USR3(&HC5) THEN GOTO 20 
222 SK=USR3(&HD3) : U=USRI (SK) 
224 IF SK<CK THEN CK=CK-1 
226 A=211: GOTO 420 
230 IF CK<=USR3(&HD3) THEN GOTO 20 
232 EK=USR3(&HC5) : U=USR1 (EK) 
234 IF EK<CK THEN CK=CK-1 
235 IF CK<>TT AND PEEK(TT)=197 THEN POKE TT, 32 
236 A=1987:GOTO 499 
249 A=208: GOTO 490 
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250 A=184: GOTO 409 

260 A=196: GOTO 420 

270 IF CK=TS OR PEEK(CK-1)=211 OR PEEK(CK-1)=297 GOTO 29 ELSE 
CK=CK-1:GOTO 329 

280 A=298:GOTO 409 

298 CK=TS: HK=TS: GOTO 500 

300 IF CK+8290>TT THEN HK=TT-799:CK=HK ELSE HK=CK 

395 GOTO 500 

318 IF IM THEN IM=O:PRINTCHP$(27)+"x4";: ELSE IM=1:PRINTCHR$( 
27)+"y4"; 

315 GOTO 500 

320 IF PEEK(CK)=211 OR PEEK(CK)=197 GOTO 29 ELSE U=USR1(CK) 
325 GOTO 502 

409 U=USRI(CK) :GOTO 45 

500 REM AFDRUKKEN BEELDSCHERM 

510 LOCATE, , 2: 0=USRZ(HK) 

520 D=CK-HK: CY=D\4G: CX=D-CY*49: LOCATE CX, CY, 1 

532 GOTO2G 

71000 PRINTCHR$(7);:PRINTCHR$(7); :GOTO 8000 

7905 GOSUB 23000 

8202 REM RETURN VAN FUNCTIE 

BO1Z FOR X=1 TO 19:KEY(X) ON:NEXT 

8020 GOTO 509 

9220 REM START EEN FUNKTIE 

9295 FOR X=1 TO 19:KEY(X) OFF:NEXT 

9010 D3) : NS=USR4 (0) : EK=USR3 (&HC5 ) 

9929 IF EK=TT THEN SL=NS-BK ELSE SL=EK-BK-1 

8730 POKE 56935!,FNL(BK):POKE 56936!,FNH(BK) :POKE 56933!, FNL( 
EK):POKE 56834!,FNH(EK):POKE 56925!,SL MOD 256:POKE 56926 !, SL 
\256 

9249 RETURN 

10009 REM FN1:KOPIEER 

14919 GOSUB 9002 

14029 IF CK>BK AND CK<=EK AND NS>=CK OR BK+1=EK OR CK+SL>TT T 
HEN RETURN 7009 

14263 U=USR8 (CK) 

14075 IF CK<BK THEN BK=BK+SL:POKE 56935!,FNL(BK):POKE 56936!, 
FNH(BK) 

19289 U=USR6 (CK) 

19092 RETURN 8200 

11003 REM FN7:WIJZERS 

11919 GOSUB 9999: U#=USR1 (BK) +USR1 (USR3(&HC5) ) +USRI(TS) 

11929 POKE TS,211:POKE TT, 197 

11932 RETURN 8200 

120209 REM FN3:KIJK 

12918 GOSUB 9020:S1=1:59=D:RS=1:GOTO 12300 

12020 A=ASC(INPUT$(1)): IF A>27 THEN ON A-27 GOTO 12190, 12200 
‚12010, 12309 

12039 IF A=13 THEN GOSUB 23200:RETURN 8900 ELSE GOTO 12019 
12109 RS=RS+39: IF RS+39>PB THEN RS=PB-39 

12119 S1=B1:S9=B:MD=BM: CL=BC:US=BU 

12129 GOTO 12500 

12299 RS-RS-39:IF RS<1 THEN RS=1 

12218 GOTO 12119 

12303 IF S9=1 GOTO 12929 ELSE B1=S1:B2=52:BO=S0: BM=MD : BC=CL: B 
U=US 
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12595 X=22:CLS 

12519 GOSUB 17500:PRINTMIDS(R$, RS, 40) ; 

12520 IF S9=0 THEN X=X-1:IF X GOTO 12519 

12539 GOTO 12029 

13200 REM FN4: ZOEK 

13019 GOSUB 3920: IF BK+1=EK THEN RETURN 7420 

13030 A=USR7(VARPTR(Z$))-1:IF A>BK+SL THEN RETURN 7000 

13049 CK=A:IF A>TT-799 THEN HK=TT-799 ELSE HK=CK 

13053 RETURN 8000 

14020 REM FN9:LAAD 

14010 GOSUB 9900:POKE TS,211: POKE TT,197:EK=TT:NS=EK-1:BK=TS 
:GOSUB 9929:U=USR2(BK):POKE TS+1,32:POKE TT, 197 

14020 A$=D$+":"+F$ 

14930 IF LEN(D$)>1 THEN IF (ASC(D$) OR 32)=113 AND (ASC(MID$( 
D$,2)) OR 32)=10% THEN _BLOAD(A$) ELSE BLOAD A$ ELSE BLOAD A$ 
14049 CK=TS:HK=TS: RETURN 8000 

15909 REM FN6:DELETE 

15019 GOSUB 9999:IF BK+1=EK OR NS<=BK THEN RETURN 8000 

15929 U=USR2(BK) 

159309 IF CK>BK THEN IF CK<EK THEN CK=BK ELSE CK=CK-EK+BK+1 
15049 IF HK>CK, THEN HK=CK 

15959 RETURN 8000 

16007 REM FN2:OPTIES 

16905 GOSUB 9009:GOSUB 16900 

16919 GOTO 16269 

16029 IF A=13 GOTO 16840 

16930 IF A=39 AND CSRLIN>3 OR A=31 AND CSRLIN<23 THEN PRINTCH 
R$(A) ; 

16963 LOCATE 20,CSRLIN:ON CSRLIN-2 GOSUB 16100, 16119, 16120, 16 
280, 16980, 16089, 16980, 16980, 16980, 16170, 16180, 16080, 16089, 169 
BO, 16989, 16089, 16080, 16980, 16280, 16299, 16300 

16979 GOTO 16929 


16089 
16199 B:GOSUB 16520: PB=PR: RETURN 
16119 P:GOSUB 16509: LP=PR: RETURN 
16120 =RP:GOSUB 16509: RP=PR: RETURN 
16179 
16180 


16299 d 8 
16303 :MP=34 : GOSUB16709 : V$=IP$ : RETURN 

16509 REM _ FN7:OP- EN AFTELLEN 

16519 A=ASC(INPUTS$(1)):IF A=13 OR A=30 OR A=31 THEN RETURN 
16520 IF A=28 AND PR<UB THEN PR=PR+1: LOCATE 19,CSRLIN: PRINT 
PR; : LOCATE 29, CSRLIN 

16539 IF A=29 AND PR>LB THEN PR=PR-1: LOCATE 19, CSRLIN:PRINT 
PR; :LOCATE 29, CSRLIN 

16545 GOTO 16500 

16659 REM FN7:SPATIES VERWIJDEREN 

16610 IF LEFT$(US, 1) “THEN U$=MID$(U$, 2):GOTO 16610 

16629 IF RIGHT$(US$, 1 “THEN US=LEFT$(U$, LEN(U$)-1):GOTO 166 


16639 RETURN 

1670 REM FN7:STRINGINVOER 

16719 A=ASC(INPUT$(1)): IF A =13 OR A=39 OR A=31 THEN RETURN 
16729 IF A=28 AND POS(@)<MP THEN LOCATE POS(Z)+1,CSRLIN ELSE 
IF A=28 AND POS(O)>29 THEN LOCATE POS(@)-1, CSRLIN 
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16725 


IF A=127 THEN A=32 


16739 IF A>31 AND (A<192 OR A>223) THEN MIDS$(IP$,POS(@)-19,1) 
=CHR$(A) : A=POS(Z) : LOCATE 29, CSRLIN:PRINTIP$; : LOCATE A, CSRLIN: 
A=28:GOTO 16729 


16749 
16822 
16892 
16894 
16806 
16810 
16829 
16830 
16849 
16850 
16909 
16995 


16609: D$=U$ 
16629: 2$=U$ 
16629: V$=U$ 
16625: F$=U$ 
16629: D$=U$ 
16609: Z$=U$ 
: 16699: V$=U$ 
:GOSUB 23990: RETURN 8000 
FN7: TEKEN SCHERM 
RESTORE 16900:CLS:FOR X=1 TO 12:READ Y,Z,A$:LOCATE Y,‚Z: 


PRINTAS; : NEXT 


16810 DATA 14,1,PRINTER, 4,3, “REGELBREEDTE :", 4,4, “PAPIERREGEL 

S :",4,5, "TEKST REGELS :",14, 19, FIRS, 4, 12, "FILENAAM * 
*",4,13, “DEVICENAAM Ed ‚14,20, STRINGS, 4, 22, "z 

OEKSTRING zx” 

16915 DATA 4,23, “VERVANG DOOR : *",35,22,%,35,23, * 

16929 LOCATE 19,3:PRINTPB 

16921 LOCATE 19,4:PRINTLP 

16922 LOCATE 19,5:PRINTRP 


16923 
16924 
168925 
16926 
16939 
16932 
16834 
16936 
16949 
17000 
17010 
17020 
17030 
17500 


LOCATE 29, 12:PRINTF$ 

LOCATE 29, 13: PRINTD$ 

LOCATE 20,22: PRINTZ$ 

LOCATE 29, 23: PRINTV$; 
$+STRINGS(10-LEN(F$), 32) 
8+STRING$(3-LEN(D$), 32) 
$+STRINGS$(15-LEN(Z$), 32) 
V$=V$+STRING$(15-LEN(V$), 32) 

LOCATE 20, 22, 1: RETURN 

REM FN8:PRINT 

GOSUB 99099: S1=1:50-0 

GOSUB 17500:LPRINT R$:IF S9=9 GOTO 17020 
RETURN 8920 

IF S1 THEN IF BK+1=EK THEN S9=1:RETURN ELSE SL=(LP-RP)\ 


2:TL=RP:EL=LP-TL-SL:S1=0:MD=1:CL=SL: POKE 56931!,PB:POKE 56932 
1,0:US=BK+1 


17519 
17529 


) 

17530 
17609 
17619 
17700 
17710 


R$=SPACES( PB) 
Y=VARPTR(R$) :POKE 56929 !, PEEK(Y+1):POKE 56939!, PEEK(Y+2 


ON MD GOTO 17600, 17799, 17800, 17900 

CL=CL-1:IF CL=9 THEN MD=2:CL=TL 

RETURN 

US=USR5 (US) 

XZ=INSTR(R$, CHR$(&HC5)):IF XZ THEN R$=LEFTS$(R$, XZ-1)+SP 


ACE$(PB-XZ+1) :SO=1 

17715 XZ=INSTR(R$, CHR$(&HDO) ):IF XZ THEN R$=LEFT$(R$, XZ-1)+SP 
ACE$(PB-XZ+1) 

17720 XZ=INSTR(R$,CHR$(&HC2)): IF XZ THEN R$=LEFTS(R$, XZ-1)+SP 
ACE$(PB-X2+1) :MD=3 


17725 
17735 


IF US>NS THEN S9=1:RETURN 
CL=CL-1:IF CL=@ THEN MD=: 


CL=EL 


217 


17745 RETURN 

17899 CL=CL-1:IF CL=O THEN MD=4:CL=EL 

17819 RETURN 

17909 CL=CL-1:IF CL=O THEN MD=1:CL=SL 

17914 RETURN 

18022 REM FN9 : VERVANG 

18913 GOSUB 9020: IF BK+1=EK THEN RETURN 7020 

18939 FS=TT-NS+(EK=TT) 

18943 DS=LEN(V$)-LEN(Z$) : FV=0 

18959 IF DS>FS THEN RETURN 7020 

18955 SL=USR3(&HC5)-BK-1:IF SL<=0 THEN RETURN 7000 

18957 POKE 56925!,SL MOD 256:POKE 56926!,SL\256 

18269 A=USR7(VARPTR(Z$))-1:IF A>BK+SL THEN IF FV=1 THEN RETUR 
N 8090 ELSE RETURN 70200 

18965 POKE &HDESD, ABS(DS) : POKE &HDESE, 9 

18079 IF DS>@ THEN U=USR8(A) ELSE IF DS THEN U=USR2(A-1) 
18982 IF LEN(V$) THEN FOR X=1 TO LEN(V$):POKE A+X-1, ASC(MID$( 
V$,X)):NEXT: FV=1 

18293 BK=A+LEN(V$)-1:POKE 56935!,FNL(BK):POKE 56936! ,FNH(BK) : 
FS=FS-DS 

18149 GOTO 18959 

192909 REM FN5:LAAD 

19919 GOSUB 9209: U#=USR1 (BK) +USR1 (USRI(&HCE) ) +USRI(TS) : POKE T 
S,211:POKE TT, 197:GOSUB 9009: A$=D$+": "+F$ 

19020 IF LEN(D$)>1 THEN IF (ASC(D$) OR 32)=113 AND (ASC(MID$( 
D$,2)) OR 32)=100 THEN _BSAVE(A$,TS,NS) :RETURN 8400 

19039 BSAVE A$,TS,NS:RETURN 8000 

20000 REM INIT 

20005 KEY OFF:SCREEN @:WIDTH 40:LOCATEIO, 19: PRINT “EVEN GEDULD 
AUB. _:LOCATE13, 12: PRINT” HARK ; : P] d : 
$="DEFAULT" "CAS": TS=&HAFCB: TT=&HDAAB: CK=TS+1: IM=: 
CX=0: CY=D: HK=TS 

20010 GOSUB 21990: GOSUB 22000 

20015 POKE 56941!,256+TS MOD 256:POKE 56942!,255+TS\256: POKE 
56939!, 256+TT MOD 256:POKE 56940!,255+TT\256 

20020 POKE TS,211: POKE TT,197:EK=TT:NS=EK-1:BK=TS:GOSUB 9020 
:U=USR2(BK):POKE TS+1,32:POKE TT, 197 

20032 ON KEY GOSUB 19010, 16005, 12910, 13910, 19010, 15010, 11010, 
17019, 18910, 14010 

20240 FOR X=1 TO 19:KEY X,"":KEY(X) ON: NEXT 

20050 KEY5,CHR$(12)+"GOTO 7999" +CHR$(13) 

20065 GOSUB 23000:GOTO 500 

21900 REM INIT:MAAK CONTROLKARAKTERS 

21910 FOR X=BASE (2)+1536 TO BASE(2)+1743: VPOKE X,255-VPEEK( 
X-1924) :NEXT: RETURN 

22000 REM INIT:DUMP MACHINECODE 

22905 SUM-O:RESTORE 22000 
22010 READ A$: IF A$="s" OR A$="S" THEN IF SUM=178 THEN GOTO 
22109 ELSE PRINT “DATA ERROR": STOP 

22020 =VAL("&H"+A$): IF LEN(A$)=4 THEN X=Y:PRINTCHR$(8)+" "+C 
HR$(8);: ELSE POKE X,Y: X=X+1: SUM=SUM XOR Y 

22939 GOTO 22010 

22109 DEFUSRO=56657 ! : DEFUSR1=56857 ! : DEFUSR2=56757 ! : DEFUSR3=56 
717!:DEFUSR4=56677 ! : DEFUSR5=56307 ! : DEFUSR6=56631 ! : DEFUSR7=565 
57 !:DEFUSR8=56228 ! : DEFUSR9=56 180! 

22119 RETURN 


bd 
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22200 REM @: AFDRUKKEN 

22210 DATA DD51, 2A,F8,F7,11,00,00,01, 20,93,C3, 5C, 00 

22220 REM 1:DELETE 1 KARAKTER 

22239 DATA DE19,2A,6B, DE, ED, 5B,F8,F7,B7,ED, 52, 29, 06, 1A, FE, C5, 
CB, 18,0E,E5,C1,2A,F8,F7,23,ED, BO, 1A,FE,C5, 29,01, 1B, 3E, 29, 12,C 
9 


22240 REM 2:DELETE MEERDERE KARAKTERS 

22250 DATA DDBS5, 2A, F8, F7,ED, 4B, 5D, DE, 99, 23, E5, 2A, 6B, DE, D1, D5, 
B7,ED, 52, E5,C1,03,E1,E5,ED, 5B, F8, F7, 13, ED, BO, E1, 2B, 2B, ED, 5B, F 
8,F7,ED,52,E5,C1,ED,5B,6B, DE, 1B, 2A, 6B, DE, 36, 29, 78,B1, CB, ED, B6 
„C9 

22255 DATA ED, BO,E1, 2B, 7E, FE, C5, CO, 36, 20, ZA, 6B,E2, 36, C5, C9 
22269 REM 3:EERSTE VOORKOMEN CODE X 

22270 DATA DDSD,3A, F8, F7, 2A, 6B, DE, ED, 4B, 6D, DE, ED, 42, E5,C1, 93, 
2A,6D,DE,ED,B1, 2B, 22, F8, F7, C9 

22280 REM 4:ZOEK TEKSTEINDE 

22299 DATA DD65,2A, GB, DE, 7E, FE, 20, 28,0B, FE,C5, 20, OA, 36, 20, ED, 
5B,6B, DE, 12, 2B, 18, ED, 22, F8,F7,C9 

22300 REM 5:UITVULLEN 

22319 DATA DBF3, 2A,F6,F7,ED, 5B,61,DE, 3A, 63, DE, 47, 7E, FE, 20, 20, 
07,23,7E,FE, 20, 20,01, 2B,7E,ES,D5,E1,77,E1, 13,23, FE, DO, 28,08, F 
E‚C2, 28,04, 10,EE, 18,04, 22,F8,F7,CB 

22320 DATA E5,DD,E1,E5, 3E, 20, ED, 4B, 63, DE, 2A, 61, DE, ED, B1, E1, 22 
„EA, DD, BE, O0, 20, UB, 1B, D5,E1, BE, 28,13, DD, 22,FB8,F7,C9, 1B,D5,E1, 
BE, 28, 98, 36, 20, DD, 2B, 2B, BE, 29, FB, DD, 22, F8,F7,2A,61,DE, 3E, 20, B 
E‚29,03, 23,18, FA 

22330 DATA BE, 28,03, 23, 18, FA, BE, 20,93, 23, 18, FA,E5,C1,ED, 5B, 63 
‚DE, 2A,61, DE, 19,2B, B7, ED, 42, D8,09,E5, BE, 20,03, 2B, 18, FA, ED, 5B, 
61,DE 

22340 DATA 1A,FE, 20, 20,03, 13, 16, F6, 1A, FE, 20, 28,03, 13, 18, F6,E5 
‚B7,ED, 52, E1,38,E5,D5,ES,ED, 52,E5,C1, 93, E1,E5,E5,D1, 13, ED, BB, 
E1,23,D1,C1,E5,B7, ED, 42,E1,C8,C5, 18, CE 

22350 REM 6:KOPIEER 

2236% DATA DD37,ED, 4B, 5D, DE, 2A,67,DE, 23, ED, 5B, F8, F7, ED, BO, C9 
22370 REM 7:ZOEK 

2238% DATA DCED, 2A,F8,F7,46, 23, 5E, 23, 56, EB, 7E, D9, 2A, 67, DE, 23, 
ED, 4B, 5D, DE, O3, ED, B1, 20, 13,E5,D9, D1, 1B,E5,C5, F5, 1A,BE, 13, 23,2 
D,OA, 19, F8,E1,E1,E1,D9,22,F8,F7,C9,F1,C1,E1,D9,18,DF 

22390 REM 8: INSERT MEERDERE KARAKTERS 

22490 DATA DBA4, ED, 5B, 6B, DE, 2A, 6B, DE, ED, 4B, F6, F7, B7,ED, 42, 28, 
76, ED, 4B, 5D, DE, ED, 42, E5,C1,03,C5, 2A, 6B, DE, ED, 4B, 5D, DE, ED, 42, C 
1, 1A,FE,C5, 20,03, OB, 1B, 2B, 78, B1, CB, ED, B8, C9 

22410 REM 9:INSERT 1 KARAKTER 

22420 DATA DB74,2A,6B, DE, ED, 4B, F8, F7,B7,ED, 42, CB, E5,C1, 2A, 6B, 
DE, ED, 5B, 6B, DE, 2B, 1A, FE, C5, 29,96, 7E, FE, D3, CB, 36,C5, ED, B8, 3E, 2 
@,12,C9 

22999 DATA S 

23000 REM TEKEN FUNCTIEBALK 

23005 KEY OFF:A$=CHR$(1)+CHR$(86): LOCATE @, 20: PRINTCHR$( 1) +CH 
R$(88) ; 

23019 FOR X=1 TO 5:FOR Y=1 TO 7:PRINTCHR$(1)+CHR$(87) ; : NEXT: P 
RINTCHR$(1)+CHR$(82) ; : NEXT: PRINTCHR$(8) +CHR$ (B) +CHR$( 1) +CHR$( 
89); 

23029 PRINTA$+"KOPIEER"+A$+"OPTIES "+A$+" KIJK “+A$+" ZOEK 
"+A$+" SAVE "+A$+CHR$(1)+CHR$(B4) ; 
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23039 FOR X=1 TO 5: FOR Y=1 TO 7:PRINTCHR$(1)+CHR$(B7); : NEXT: 
PRINTCHR$(1)+CHR$(85) ; : NEXT: PRINTCHR$ (8) +CHR$ (8) +CHR$( 1) +CHR$ 


(83) ; 
23042 PRINTAS+" 
“+AS+" LOAD ”; 


WIS 


“"+A$+"WIJZERS"+A$+" PRINT "+A$+"VERVANG 


23050 LOCATEG, OG: VPOKE 959,22: RETURN 


33187 IF PEEK(CK 


K>TS THEN CK=CK-1 ELSE CK=CK+2 
50005 FORX=56180! TO56900 ! 
50010 IF PEEK(X)=&HE2 THEN PRINTX 


50220 NEXT: STOP 


Checksums: 


Gebruik het programma van paragraaf 4.6. 


:062A 
:B3E4 
:E2DA 


:GEF6 
:7CEE 
:EOD5 


:B3A7 
:BC63 
:2301 


:99EC 
:D63C 
:39A9 
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3: 


F3D3 


:33B5 


:26EC 


:163A 
:BE3B 
:79DD 


:AEBD 
:ED77 
:E723 


:3F81 
:1DD7 
-8762 


:24B3 
:649C 
:917B 


:81CC 
:DB27 
:C796 
:3BF8 
:49B1 
:F497 


:37C5 


=211 THEN CK=CK+1 
33188 IF PEEK(CK)=197 THEN CK=CK-1: 


16095 : 
1607 
16179: 


16529: 
16629: 
16725: 


16806 : 


:C648 
:BED5 
:DFAB 


:3CB4 5:AFE1 
:F21F 6CB 
:9C72 40: 5ABE 


blok-checksum : 


183:D54E 
blok-checksum : 


:68CO 

:CBCF 

:99EB 250:E3EB 
blok-checksum : 

:2FE5 395 :D53C 

:D73C 400: B1A4 


:6CCO 7099:8291 


blok-checksum : 


:D816 9005:DED4 
:DB76 19009: 2163 
:34D2 19089:F703 


blok-checksum : 


:F288 12000: E40C 
:5688 12119:A4DF 
:95FO 12507: 4C6D 


blok-checksum : 


:3EFD 13030: 708C 
:6943 14029: BD6F 
:OFCD 15929: 66CO 


blok-checksum : 
382F 16919:B788 
CF8O 16089: 9B77 
SD63 16189:2FA1 
blok-checksum : 
82C6 16539: 9A2E 
8324 16637:9EF7 
2751 16739:05B5 
blok-checksum : 
37F@ 16819: 35B0 


IF PEEK(CK)=211 THEN IF C 


2C28 


4831 


ZC45 


GECC 


E714 


3DE4 


S5DF7 


1F2F 


S2EF 


3608 
:9699 
:E796 
:7C6D 
:FE8C 
:BFA7 
:4D61 
:FBF9 
:2CEQ 
:BDF1 
:3F4D 
:1A48 
:B44C 
:DB96 
:1E59 
:2DDA 
:3C6C 
:580C 
:2861 
:94F7 
:7BD6 
17178 
:7956 
:9687 
:64BD 
:EA93 
:FF6A 
:8CA9 
:E182 


16839: 
16919: 


16924: 
16934: 
17029: 


17605: 
17729: 
17819: 


18949: 
18265: 
19925: 


20019: 
20050: 
22005: 


22200: 
22259: 
22299: 


22350: 
22400: 
23005: 


33187: 


3840 
314D 


7D71 
59D1 
AA49 


3D8F 
A3DA 
A1F7 


A29D 
3275 
A41D 


9992 
7A30 
61F3 


B682 
7F56 
C119 


173E 
8DD1 
642C 


FCB1 


16849: 
16915: 


16925: 
16936: 
17939: 


17619: 
17725: 
17929: 


18959: 
18079: 
19015: 


20015: 
20060: 
22019: 


22219: 
22255: 
22300: 


22369: 
22419: 
23210: 


33188: 


387% 
375B 


7EA5 
54D1 
B288 


SFF7 
9546 
FD4D 


28A8 
4D63 
951E 


3479 
62D6 
4910 


A248 
960C 
E48D 


4086 
276E 
F3EA 


F6E5 


16859:64CF 16900:87D7 
16929:E57C 16921:E686 
blok-checksum : 
:FF85 16939: 19D0 
DAEG 17000: 4A4A 
446B 17519:2A1B 
blok-checksum : 
17709:2767 17719:A26E 
17730:DDF1 17749:A277 
17919:A2F7 18000:2B72 

blok-checksum : 
18955:459E 18057: 200F 
18289:ECC1 18099: 88E7 
19529:D64D 19039: 4FA4 

blok-checksum : 
20020:D75D 29030: 9BBA 
21909:88C1 2101 
22020:9ADD 22030: 9FGE 

blok-checksum : 
22229:4103 22239:D55C 
22269:9D69 2227 052 
22319:AB5F 22329:1795 

blok-checksum : 


22370: 
22420: 
23920: 


blok-checksum : 
50000:A719 50010:9423 
blok-checksum : 


8701 


O4EC 


BOEC 


A982 


3F71 


FA14 


71E6 
D8F1 
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7.2 DATABESTANDEN 


Een zeer nuttige toepassing van uw MSX is het beheren van databestanden. Denk bijvoor- 
beeld aan de gegevens naam, straatnaam en woonplaats. Deze gegevens vormen een 
adres-databestand. 

Met behulp van het in deze paragraaf beschreven programma kunnen we zo'n data- 
bestand opslaan in de computer en er dan allerlei bewerkingen op uitvoeren, zoals gege- 
vens opvragen, sorteren, afdrukken etc. 

De listing van het programma is erg lang, maar het is zeker de moeite waard zoals zal blijken 
uit de vele mogelijkheden die het programma biedt 

In het nu volgende zal worden uitgelegd hoe met dit programma een compleet adressen- 
bestand kan worden opgezet. 


BESTANDSDEFINITIE 


Na het opstarten van het programma met het RUN-commando verschijnt een scherm met 
de volgende keuzemogelijkheden: 


votre DATABESTAND tsss 


niet gesorteerd Vrij : @ 
Menu : 
Nieuw : Maak een nieuw datablok 


Insert : Voeg records toe 


Verander : Verander veldgegevens 
Type : Print op het scherm 
Print : Print op de printer 
Rangschik: Sorteer het bestand 
Save : Save op diskette 
Load : Load ven diskette 
Kill : Wis een file van disk 


Catalog : Druk alle files af 


Menu : Druk dít menu af 
Exit : Beeindig dit programma 
Opdracht : 


Door het intoetsen van de beginletter, of een willekeurige afkorting van elk eerste woord, 
kunnen we een bepaalde opdracht kiezen. Bovenin het scherm staat Vrij: xx, waarbij xx dan 
een getal is, Dit getal geeft aan hoeveel velden er nog vrij zijn. 

We kiezen eerst de opdracht Nieuw : Maak een nieuw datablok. Dit doen we door de letter 
N in te typen. Het programma komt terug met de vraag: 


Aantal velden? 
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Bedoeld wordt het aantal gegevens dat we per adres willen opslaan. Stel dat we een adres- 
senbestand willen maken dat bestaat uit de volgende gegevens: 


naam, voornaam, straat, postcode, plaats, telefoon 
Het gaat om zes verschillende gegevens, dus hebben we zes velden nodig. Deze zes vel 
den vormen tesamen één adres en dat duiden we in het vervolg aan met „record '. 
We beantwoorden de vraag dus met 6, vervolgens verschijnt op het scherm, 


se NIEUW BESTAND ksk 


Record : @ Pagina : 1 
Veld 1 ? Veld 1 
Veld 2 : Veld 2 
Veld 3 : Veld 3 
Veld 4 Veld 4 
Veld 5 Veld 5 
Veld 6 : Veld 6 


Het programma vraagt naar de namen van de velden. Zoals we zien staat achter ieder veld 
al een veldnaam (VELD 1, etc), dit is de standaard veldnaam. Als we niets invullen blijft deze 
veldnaam bestaan. We kunnen er echter gewoon overheen typen. Als de nieuw ingegeven 
veldnaam echter korter is dan de standaard veldnaam is het wel zaak het restant te verwij- 
deren door het indrukken van functietoets F3. We voeren in: 


sn NIEUW BESTAND tortor 


Record : @ Pagina : 1 
Veld 1 : Naam 
Veld 2 : Voornaam 
Veld 3 : Straat 
Veld 4 : Postcode 
Veld 5 : Plaats 
Veld 6 : Telefoon 
Opmerkingen: 


Als we numeriek willen kunnen sorteren op bepaalde velden, dat wil zeggen niet alfabe- 
tisch, maar op getalwaarde, dan moet bij het invoeren van de veldnamen van een nieuw 
bestand voor de veldnaam een punt worden getypt. Bijvoorbeeld: ‚Leeftijd 


Een bestand mag meer velden hebben dan op het scherm kunnen. De velden worden dan 
per pagina weergegeven. 
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TOEVOEGEN VAN GEGEVENS (I) 


Elke keer als het programma vraagt „Opdracht? kunnen we een van de opdrachten uit 
het hoofdmenu uitvoeren. Willen we het hoofdmenu zelf zien, geef dan een ‚M"' of gewoon 
RETURN. 


We gaan gegevens invoeren en kiezen daarom voor de opdracht „Voeg records toe”' (letter 
I), Het programma vraagt één voor één naar de gegevens. We voeren bijvoorbeeld het vol- 
gende adres in: 


sp Insert Mok 
Record : 1 Pagina : 1 


Naam : Jansen 

Voornaam : Piet 

Straat : De Klerckstraat 128 
Postcode : 7502 FP 

Plaats : ZWOLLE 

Telefoon ? J38-13268 


Als we willen ophouden met het toevoegen van records dan moeten we op functietoets F1 
drukken, Het hoofdmenu komt dan weer in beeld. 


Opmerkingen: 
- Is een bepaald gegeven onbekend, dan niets invullen maar gewoon op RETURN 
drukken. 
Gegevens mogen alle lettertekens en cijfers bevatten. Een gegeven mag echter 
geen haakjes () of de tekens <> = bevatten. Ook kan beter geen gebruik gemaakt 
worden van de leestekens : en ; 


Op dezelfde wijze voeren we ook de volgende twee adressen in 


Jan Klaassen Piet Peters 

Wegtersweg 12 Voorbeeldstraat 5 

6805 DB ARNHEM 7508 AA ZWOLLE 

085-73215 038-14738 
Belangrijk: 


De geheugencapaciteit van de computer is uiteraard beperkt en dus kan het databestand 
vol raken. Hoeveel adressen het bestand kan bevatten is niet te voorspellen omdat dat af- 
hankelijk is van de lengte van namen en adressen. Als het bestand vol is verschijnt de me- 
dedeling: 


Database is vol 


Er kunnen maximaal 800 velden gebruikt worden. Bij MSX-l kunnen deze ongeveer 5000 
tekens bevatten, bij MSX-Il ongeveer 4000. 
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GEGEVENS OPVRAGEN (t) 


Het hebben van een databestand is alleen zinvol als het mogelijk is snel daaruit bepaalde 
gegevens op te vragen. Dit programma beschikt over uitgebreide selectiemogelijkheden. 
Kies de opdracht „Type : Print op het scherm" (letter T). 

Achter de ingetypte T vullen we in welke velden we willen zien. Daarbij hebben we de vol- 
gende mogelijkheden: 


1. Veldnamen mogen worden afgekort zolang ze maar van elkaar te onderscheiden zijn. 

2. Wordt tussen de veldnamen een spatie ingetoetst, dan worden de gegevens onder el- 
kaar weergegeven. 

3. Wordt voor de veldnaam een puntkomma ingetoetst, dan wordt het gegeven achter het 
voorgaande veld weergegeven. Wordt voor de eerste veldnaam een puntkomma getypt 
dan wordt tussen de verschillende records geen regel overgeslagen. 

4. Wordt voor een veldnaam een dubbele punt (:) ingetoetst, dan wordt ook de veldnaam 
zelf getoond. 

5. Wordt „NO" ingetypt, dan wordt ook het recordnummer weergegeven. 

6. Staat er in plaats van het eerste woord een cijfer, dan worden alleen de gegevens van 
het record met dat nummer getoond. 

7. Typen we niets in, maar drukken we alleen op de RETURN-toets, dan wordt het hele 
bestand getoond. 

8. Wordt een bereik meegegeven. bijvoorbeeld T 1-20 dan worden alle records van 1 tot 
20 getoond. 


Het weergeven van de records stopt zodra het scherm vol is. Met de cursor-omlaag toets 
wordt het volgende scherm getoond, met de cursor-omhoog toets de vorige records. 


Voorbeeld: 
T vo;na stra pla 


Behalve opgeven welke velden we willen zien kunnen we ook een selectiecriterium opge- 
ven. Dat geven we aan met het woord „als’' gevolgd door een voorwaarde. De volgende 
voorwaarden zijn mogelijk: 


veldnaam = gegeven (gelijk aan) 
veldnaam > gegeven (groter dan) 
veldnaam < gegeven (kleiner dan) 
veldnaam >= gegeven (groter gelijk) 
veldnaam < = gegeven (kleiner gelijk) 
veldnaam <> gegeven (ongelijk) 


Het is ook mogelijk op een samenstelsel van voorwaarden te testen door tussen de voor- 
waarden het woordje „en of het woordje „of“ te plaatsen. Bovendien is het toegestaan 
voorwaarden tussen haakjes (tot 11 niveaus diep) te plaatsen waardoor zeer ingewikkelde 
tests mogelijk zijn. 

Opmerkingen: 


Instructies als: NO, ALS, OF en EN mogen zowel in hoofd- als in kleine letters worden in- 
gevoerd. 
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Als een veldnaam of testvoorwaarde spaties bevat dient deze tussen aanhalingstekens ge- 
zet te worden. Bijvoorbeeld: veld 1 wordt dan opgegeven als ‘veld 1". Dus: 


tals “veld 1">a 


Voorbeeld: 


T vo;na als pl= ZWOLLE 


Toegestaan is: 


T voornaam naam straat 

T ;vo na str 

T :no voornaam;naam tel 

T RETURN 

T 2 voornaam;naam 

T als naam = Jansen 

T als naam> =J en naam <K) of plaats = ZWOLLE 

T no voornaam;naam straat plaats tel als plaats = ZWOLLE 

T. Peters 

T. nis Peters (het bestand moet dan wel op het veld naam gesorteerd zijn) 


De volgende functietoetsen zijn van belang: 


al 
F2 
F6 
- 


terug naar hoofdmenu 

stop niet na elke volle schermpagina. Elke andere toets schakelt dit weer uit. 
start opnieuw bij eerste pagina 

volgende pagina 

vorige pagina 


AFDRUKKEN GEGEVENS OP PRINTER (P) 


Dit programma biedt ook de mogelijkheid gegevens af te drukken op de printer, bijvoor- 
beeld voor het maken van etiketten. Kies daarvoor opdracht P uit het hoofdmenu. We kun- 
nen nu op dezelfde manier selectievoorwaarden opgeven als beschreven bij Type. 


Voorbeeld: 
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P voornaam;naam straat postcode;plaats als naam> =K 


Jan Klaassen 
Wegtersweg 12 
6805 DB ARNHEM 


Piet Peters 
Voorbeeldstraat 5 
7508 AA ZWOLLE 


WIJZIGEN VAN GEGEVENS (V) 


Met de opdracht V (verander veldgegevens) kunnen we gegevens wijzigen. Achter de V 
kunnen we weer, net als bij Type, voorwaarden invullen waaraan het record moet voldoen 
dat we willen wijzigen. Het betreffende record wordt opgezocht en op het scherm getoond. 
Met behulp van F4 en F5 kunnen we naar het vorige resp. volgende record gaan. Met be- 
hulp van F1 kunnen we terug naar het hoofdmenu. 


Alleen records en velden die binnen het opgegeven bereik liggen kunnen worden veran- 
derd. In record O staan de veldnamen. De veldnamen kunnen gewijzigd worden met het 
commando V 0. 


Voorbeeld: 
V straat plaats als na= Peters 


Op het scherm verschijnt nu: 


sn Verander stats 
Record : 3 Pagina : 1 


Straat ? Voorbeeldstraat 5 
Plaats : ZWOLLE 


Alleen de straat en plaats van het record dat Peters bevat kunnen worden veranderd. Geen 
andere velden van dit record of dezelfde van een ander record kunnen nu gewijzigd 
worden, 

Als we niets opgeven achter V, dan kunnen we alle records en velden wijzigen. Met de func- 
tietoetsen F4 en F5 kunnen we weer de vorige en volgende records bekijken. 

Nadat we het commando gegeven hebben wordt de cursor aan het begin van het eerste 
veld geplaatst dat veranderd kan worden. De volgende acties zijn nu mogelijk: 


ee cursor naar rechts 

oe cursor naar links 

DEL teken waarop de cursor staat wordt verwijderd 
BS teken voor de cursor wordt verwijderd 


INS er kan tekst ingevoegd worden op de cursorpositie. Het invoegen wordt beêin- 
digd door elke andere instructie of cursorverplaatsing en ook door het nogmaals 
indrukken van de INS-toets. 

1 vorig veld. Als er meer pagina's zijn en de cursor op het eerste veld van de pagi- 
na staat, wordt automatisch de vorige pagina afgedrukt. De cursor staat dan 
weer op het eerste veld van die pagina. 

4 volgend veld. Als er meer pagina's zijn en de cursor staat op het laatste veld van 
de pagina, wordt automatisch de volgende pagina afgedrukt. De cursor komt op 
het eerste veld van deze pagina te staan. 


Verder kan nog van een aantal functietoetsen gebruik worden gemaakt: 


F1 terug naar hoofdmenu 
F3 __wis alles dat achter de cursor staat en geef RETURN 
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F4 vorig record 

F5 volgend record 

F8 _ wis alles dat achter de cursor staat 

F10 wis het gehele record (er wordt om bevestiging gevraagd) 


Is de tekst in een veld te lang dan wordt automatisch gescrolled. 


Na beëindiging van het veranderen wordt het bestand automatisch weer gesorteerd. Dit na- 
tuurlijk alleen als het bestand voordat we gingen wijzigen ook gesorteerd was. 


Voorbeeld: 
V als naam =Peters 
WISSEN VAN RECORDS 


Een record kan gewist worden door vanuit de Verander-opdracht functietoets F10 te gebrui- 
ken. Zie hiervoor verder bij Veranderen. 


SORTEREN VAN GEGEVENS (R) 


Door het geven van de opdracht R gevolgd door een veldnaam. wordt het bestand gesor- 
teerd op het opgegeven veld. Op elk veld kan gesorteerd worden. Voor numeriek sorteren 
moet echter bij de bestandsdefiniëring een punt voor de veldnaam zijn opgegeven. Zie hier- 
voor BESTANDSDEFINITIE 

Indien na de R een nul (0) opgegeven wordt, blijft het bestand ongesorteerd. 

Het is weer toegestaan de veldnaam af te korten. 


SAVEN VAN GEGEVENS (S) 


Met behulp van deze opdracht is het mogelijk gegevens op te slaan op diskette. Op dezelf- 
de wijze als bij Type is het mogelijk voorwaarden te geven waaraan het te saven bestand 
moet voldoen. Dit is vooral handig om bestandsdelen te selecteren voor gebruik met 
Mail/Merge. Moet het gehele bestand gesaved worden dan moeten geen voorwaarden ge- 
geven worden. De Save-opdracht heeft dus de volgende vorm: 


S d:filenaam voorwaarden 

De S staat voor Save, de d: voor de drve-aanduiding. Deze is optioneel en mag dus wegge- 
laten worden. De filenaam mag maximaal 8 tekens lang zijn. Wordt geen extensie opgege- 
ven dan wordt de file onder de opgegeven naam met extensie .DAT weggeschreven. Indien 


nodig wordt onder dezelfde naam een backup file aangemaakt die de extensie .DAB krijgt. 
Alle bij Type gegeven voorwaarden mogen bij Save gebruikt worden. 


Opmerkingen: 


Alle files krijgen de extensie .DAT 
-_ Backup files worden door het programma aangemaakt en krijgen de extensie „DAB. 
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Voorbeelden: 
S adressen 
Alle gegevens van alle adressen worden opgeslagen 
S adressen v‚n str po;pl als pl= Zwolle 
Voornaam, naam, straat, postcode en plaats worden opgeslagen van alle personen die in 
Zwolle wonen. 
LADEN VAN GEGEVENS (L) 
De gegevens die met Save zijn opgeslagen kunnen met deze opdracht weer geladen 
Daele waarop dit commando gegeven moet worden 1s als volgt 
L d:filenaam 
Ook nu is de drive-aanduiding (d:) optioneel. Bij de filenaam hoeft geen extensie opgegeven 
te worden, het mag echter wel. 
Let wel, een eventueel in het geheugen aanwezig bestand wordt gewist. 


OPVRAGEN DIRECTORY (C) 


Een overzicht van de files op de in de drive aanwezige diskette wordt gegeven, 
De manier waarop dit commando moet worden gegeven is: 


C d:naam 


Waarbij d: de drive aangeeft, dit mag weggelaten worden, er kan gekozen worden tussen 

A: en B. Voor „naam kan een filenaam ingevuld worden, dit hoeft echter niet. Wel is het 

toegestaan met zogenaamde wildcards te werken. Een wildcard is een teken dat een wille- 

keurig ander teken, of groep tekens, kan vervangen. Zo betekent bijvoorbeeld: 

. Alle tekens in de filenaam, ongeacht welke, of alle tekens in de extensie. Voorbeeld: 
* dat, hieraan voldoen alle files met de extensie ‚dat ongeacht de filenaam. 

2 Vervangt een enkel willekeurig teken in de filenaam of extensie. Voorbeeld: be- 
stand?.dab, hieraan voldoen o.m: bestand1.dab, bestandS.dab en bestanda.dab. 


Als helemaal niets wordt opgegeven worden alleen files met de extensie DAT getoond. Wil- 
len we een overzicht van alle files op de diskette dan moeten we *.* opgeven. 


VERWIJDEREN VAN FILES (K) 


Het is mogelijk een file van diskette te verwijderen, dit gaat door middel van de K(ill) op- 
dracht. De manier van invoeren van dit commando is weer zoals bij SAVE en LOAD: 


K d:filenaam 


d: is weer de drivenaam, dit mag worden weggelaten. Ook hier is het gebruik van wildcards 
toegestaan, 
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HET PROGRAMMA VERLATEN (E) 


Door het intypen van de letter E wordt het programma verlaten. 

Was dit niet de bedoeling of wordt het programma door een andere oorzaak verlaten, dan 
is het mogelijk om het programma met behoud van gegevens te starten door het comman- 
do 


GOTO 9880 


te geven. Het is wel zaak niet eerst iets anders te doen na het verlaten van het programma. 
Opmerkingen: 


Lege records worden automatisch gewst. Is het om de een of andere reden toch gewenst 
om lege records te hebben, dan kunnen deze gemaakt worden door in het eerste veld een 
spatie in te typen. 


F1 is altijd terug naar het hoofdmenu. 


Het is mogelijk de opdrachtregel te wijzigen. Hiertoe kunnen alle verandermogelijkheden 
van het TOEVOEGEN VAN GEGEVENS gebruikt worden. 
F2 herhaalt de laatst ingevoerde opdracht 


Voor gebruik van het programma op een MSX-Il dienen de volgende regels veranderd te 
worden 


125 CLEAR 4000:ON ERROR GOTO 9530 
1340 MDAT = INT(BOO/BDAT + 2):MK = 3700 


Programma: 


15 "Hr 

29 'x DATABESTAND *« 

30 xx Versie 2.2.m2 (MSX-II) ** 

Ed Door _J.Ribberink hid 

190 "wrr 

119 '**« initialisatie 

125 CLEAR 6499 : ON ERROR GOTO 9530 

139 DEFINT A-J,L-X,Z : DIM TT(12,3),LS(9), TV$(12) 

149 IA$=SPACE$(255) : MV=127 : VR=1 

159 SM=15 : SW=49 : SCREEN @ : WIDTH(SW) 

169 C1$=CHR$(8)+CHR$(127) +CHR$(18) +CHR$(29) +CHR$( 28) +CHR$ (5) 
Aad: 13) +CHR$(31) +CHR$( 30) +CHR$(6) +CHR$(2) +CHR$(17) +C 
189 C3$=CHR$(127)+CHR$(15) +CHR$(13) 

199 C4$: VTPMSLCKNRE-" 

209 C5$="InsertVeranderTypePrintMenuSaveLoadCatalogKillNieuwR 
angschikExit-” 

218 C6S=CHR$(32) +"; : <>=()-"+CHRS(13) 

229 KEY 1,CHR$(17) : KEY 19, CHR$(23) 
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237 KEY 2,CHR$(15) : KEY 3,CHR$(5)+CHR$(13) : KEY 8,CHR$(5) 

2479 KEY 4,CHR$S(2) : KEY 5,CHRS(6) 

250 KEY 6,CHR$(19) : KEY OFF 

2653 KEY 7,"" : KEY 9,"" 

319 '*** Hoofdbesturing 

339 GOSUB 639 

340 INTERVAL OFF : LOCATE g,23 : PRINT"Opdracht :"; 

342 IF FO<>@ THEN BEEP : RESTORE93G : FOR J=l TO FO : READ A$ 
: NEXT 

343 IF FO>7 THEN A$=A$+STR$(FZ)+" in regel"+STR$(FL) 

345 LOCATE 9,22 : IF FO<>@ THEN PRINT"Probleem : ";A$; 

347 FO=9 : PRINT TAB(SW-1); 

350 ZE=9 : MID$(IAS, 1)=SPACE$(255) : IB$= 
369 CX=19 : CY=23 : ZP=1 : GOSUB 1569‘ 
378 GOSUB 1539 : CODE=INSTR(C3$, IB$) 

382 ON CODE+1 GOTO 379, 379, 399, 400 

390 MID$(IAS, 1)=OLD$ : ZE=LEN(OLD$) : GOTO 369 

400 OLDS=LEFT$(IA$, ZE) : MID$(IAS, ZE+2) =CHR$(13) 

410 I=1 : GOSUB 2839 : IF A$="" THEN 330 ELSE MID$( IAS, 1)=MID 

$(IAS, I) . 

420 GOSUB 1839 : MCODE=INSTR(C4$, CHR$(ASC(LEFTS$(A$, 1))-32) ) 
: IF MCODE=G THEN FO=1 : GOTO 349 

430 I=INSTR(C5$,MID$(C4$,MCODE, 1)) : J=INSTR(C5$, MID$(C4$, MCO 
DE+1,1)) 

435 LOCATE ‚2 

440 H$=MID$(C5$,I,J-I) : IF MID$S(H$, 2, LEN(A$)-1) <>MID$(A$, 2) 
THEN FO=1 : GOTO 349 

450 IF MCODE<=4 THEN GOSUB 2039 : IF MCODE=1 THEN VER=O : SR= 
1 : ELSE VER=-1 

455 WP=@ : FP=-1: IF FO<>@ THEN 349 

463 ON MCODE GOSUB 7949, 7049, 4940, 4240, 630, BĲ3D, 8530, 9030, 913 

@, 1130, 5930, 9830 

465 IF MCODE=11 THEN GOSUB 639 

470 IF MCODE>4 THEN 340 

475 PR=@ : SC=1 : SM=15 : IF MCODE=4 THEN SM=69 : PR=-1 

489 INTERVAL ON 

499 IF MCODE>1 THEN GOSUB 3040 

509 IF WP<=FP THEN 509 ELSE IF MCODE>2 THEN 340 

519 INTERVAL OFF : IF SO> THEN GOSUB 5070 

529 GOSUB 3939 : GOTO 340 

619 '**« Print menu 

639 H$="DATABESTAND" : GOSUB 1930 

649 IF SO=@ THEN A$="niet gesorteerd” : GOTO 670 

650 IF LEFT$(DAT$(@,SO-1),1)="." THEN A$="numeriek “ ELSE A$= 


669 A$=A$+"gesorteerd op “+MIDS(DAT$(@,SO-1), 2) 

675 LOCATE 9,3 : PRINT A$ : LOCATE SW-19,3 : PRINT"Vrij : 
AT-VR+1 

689 LOCATE 9,5 : PRINT “Menu :" 

699 RESTORE 739 : FOR I=7 TO 18 

7100 READ A$ : LOCATE 3,1 : PRINT A$ 


MD 


713 NEXT 

720 RETURN 

730 DATA “Nieuw : Maak een nieuw datablok” 
140 DATA “Insert : Voeg records toe" 


750 DATA "Verander : Verander veldgegevens" 
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769 DATA “Type : Print op het scherm” 


778 DATA “Print : Print op de printer” 
780 DATA “Rangschik: Sorteer het bestand" 
793 DATA “Save : Save op diskette" 

898 DATA “Load : Load van diskette" 

818 DATA “Kill : Wis een file van disk” 
829 DATA “Catalog : Druk alle files af" 
835 DATA “Menu : Druk dit menu af” 

849 DATA "Exit : Beeindig dit programma” 
929 **** Foutmeldingen 


930 


DATA syntax error,veldnaam is niet bekend,aantal haakjes 


klopt niet 

949 DATA de formule is te moeilijk,Database is vol 
959 DATA Disk is vol,File is niet bekend 

963 DATA Disk-error,error 


1918 
1930 
1949 
1950 
1962 
1110 
1130 
1149 
1159 
gen” 
1169 
1179 
1180 
1200 
1219 
1229 
1230 
(I) 

1240 
1250 


1579 
1589 
1595 
1605 


"xx Print header 

CLS : LOCATE 9,1 

AS=STRINGS(SW/2, "*") : A$=A$+" “+HS+" "+A$ 

PRINT MIDS(AS, INT(LEN(A$)/2)-INT(SW/2) +1, SW) 

RETURN 

"ek Maak nieuw bestand 

H$="NIEUW BESTAND" : GOSUB 1930 

IF MK=O THEN 1202 

LOCATE 9,22 : PRINT"Er staat al een bestand in het geheu 


BEEP : PRINT"Moet dit gewist worden ? (J/N) "; 

LOCATE ‚1 : A$=INPUT$(1) : LOCATE ,,2 

IF A$<>"j" AND A$<>"J" THEN RETURN ELSE GOSUB 1930 
LOCATE 4,3 : INPUT“Aantal velden “;BDAT 

IF (BDAT<=@) OR (BDAT>MV) THEN BEEP : GOTO 1200 

GOSUB 1339 : CK=D : VR=1 : LOCATE @,5 

FOR I=1 TO BDAT : DISP(I,@)=I : DAT$(@,I-1)=" Veld"+STR$ 


: NEXT 


PA=BDAT-1 : FP=O : WP=D : VER=-1 : WERK(O)=0 

INTERVAL OFF : GOSUB 7949 : INTERVAL ON 

IF WP<=FP THEN 1269 

RETURN 

'** Maak de dataarrays 

IF MK<>@ THEN ERASE DAT$, RANG, WERK, DISP 
MDAT=INT(800/(BDAT+2)) : MK=6000 

DIM DAT$(MDAT, BDAT-1), RANG(MDAT), WERK(MDAT), DISP(BDAT+2, 


FOR I=1 TO MDAT : RANG(I)=I : NEXT 

RETURN 

!*xx Maak inputstring 

IB$=INKEY$ : IF IB$="" THEN RETURN 

CODE=INSTR(C1$, IB$) : IF (ASC(IB$)<32 AND CODE=0) THEN R 


ON CODE+1 GOSUB 1597, 1639, 1640, 1659, 1660, 1670, 1690 
I=2P+CX-SW+3 : IF I<1 THEN I=l 

LOCATE CX,CY,@ : PRINT MID$(IAS, I, SW-CX-1) ; 

LOCATE CX+ZP-I,CY,1 : RETURN 

IF ZP>25@ THEN RETURN 

IF INS THEN MIDS(IAS,ZP)=IB$+MIDS$(IAS, ZP, 250-ZP) : ZE=ZE 


+1 ELSE MID$(IA$, ZP, 1)=IB$ 


1615 
1629 
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IF ZE>250 THEN ZE=250 : ZP=ZE ELSE IF ZP>ZE THEN ZE=ZP 
ZP=ZP+1 : RETURN 


1639 GOSUB 1660 

1649 INS=-1 : MID$(IA$,ZP)=MID$(IA$,ZP+1) : ZE=ZE-1 : IF ZE<Z 

P THEN Z P=l 

1650 INS=NOT INS : RETURN 

1669 ZP=ZP-2 : IF ZP<@ THEN ZP=G 

1679 ZP=ZP+1 : IF ZP>ZE THEN ZP=ZE+1 

1688 INS=J : RETURN 

1690 ZE=ZP-1 : MID$(IA$, ZP)=SPACE$(256-ZP) : RETURN 

1819 '*** Maak a$ lowercase 

1839 IF A$="" THEN RETURN 

1849 FOR Z=1 TO LEN(A$) 

1859 H=ASC(MID$(A$,Z,1)) : IF H<=99 AND H>=65 THEN MID$(A$,Z, 
1)=CHR$(H OR 32) 

1869 NEXT 

1879 RETURN 

2019 '*** Converteer opdrachtstring 

20309 I=1 : TP=D : LP=O : PA=O : BE=-1 : EI=VR-1 : FO=g : REG= 
1 : DISP(PA, 1)=0 

2049 GOSUB 2839 : IF K<>9 THEN 2970 

2050 GOSUB 2939 : IF GTL THEN BE=VAL(A$) ELSE IF A$="" THEN B 

E=l ELSE FO=1 : RETURN 

2060 I=I+1 : GOSUB 2830 

2070 GOSUB 2939 : IF GTL THEN EI=VAL(A$) : GOSUB 2839 : IF BE 
<@ THEN BE=EI 

2089 IF EI>VR-1 THEN EI=VR-1 

2090 IF BE>EI THEN BE=EI ELSE IF BE<O THEN BE=1 

2109 IF A$="" THEN 2159 

2119 HA$=A$ : GOSUB 1839 : IF A: 
2129 IF A$="no" THEN DISP(PA,O) 
GOTO 2150 

213 GOSUB 2739 : IF A<@ THEN IF K<>19 THEN FO=2 : RETURN 
2149 IF A<@ THEN TT(@,9)=S0-1 : TT(O,1)=3 : TT(G,2)=-1 : TV$( 
O)=HA$ : GOTO 2369 ELSE DISP(PA,G)=A : PA=PA+1 : DISP(PA, 1)=@ 
2150 IF THEN DISP(PA, 1)=DISP(PA, 1) OR 2 

2169 IF K=3 THEN DISP(PA, 1)=DISP(PA, 1) OR 1 

2179 IF K<>@ THEN I=I+1 

2189 IF K=10 THEN TT(@,O)=-2 : GOTO 2369 ELSE GOSUB 2839 : GO 
TO 2190 

2199 GOSUB 2839 : IF K<>7 THEN 2220 

2200 LP=LP+1 : LS(LP)=TP : TP=TP+1 : IF (LP>9 OR TP>12) THEN 
FO=4 : RETURN 

2218 TT(TP-1,0)=TP : TT(TP-1,1)=0 : I=I+1 : GOTO 2199 

2229 GOSUB 1839 : GOSUB 2739 : IF A<Z THEN FO=2 : RETURN 
2230 IF (K<3 OR K>6) THEN =1 : RETURN 

2249 TT(TP,O)=A : TI(TP, 1)=K-3 : I=I+1 

2250 K=INT((INSTR("=<= MIDS(IAS, I-1,2))+1)/2) 

2260 IF K<>@ THEN TT(TP,1)=K+3 : 1 

22709 IF LEFT$(DATS(TT(TP,@),@), 1) 
6 

2289 GOSUB 2830 : TVS(TP)=A$ : A=TP 

2299 IF K<>8 THEN GOSUB 2839 : GOTO 2320 

2300 TT(A,2)=-1 : A=LS(LP) : LP=LP-1 : IF LP<O THEN FO=3 : RE 
TURN 

2318 I=I+1 : GOSUB 2839 : IF K=8 THEN 2300 

2329 IF K=10 THEN TT(A,2)=-1 : IF LP<>@ THEN FO=3 : RETURN EL 
SE 2369 


als” THEN 2199 
: PA=PA+1 : DISP(PA,1)=0 : 


THEN TT(TP, 1)=TT(TP, 1)+ 
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2339 TP=TP+1 : IF TP>12 THEN FO=4 : RETURN ELSE TT(A, 3)=TP 
2345 GOSUB 1839 : IF A$="en" THEN TT(A,2)=1 : GOTO 2190 

2350 IF A$="of" THEN TT(A,2)=0 : GOTO 2199 ELSE FO=1 : RETURN 
2369 PA=PA-1 : IF PA<O THEN PA=BDAT-1 : FOR J=@ TO PA : DISP( 
J,8)=J : DISP(J,1)=0 : NEXT J 

2379 IF TT(9,4)<O THEN TT(9,O)=TT(Z, 0) +1 

2389 REG=1 : FOR J=9 TO PA : REG=REG-((DISP(J,1) AND 2)=0) 
NEXT 

2399 RETURN . 

2710 ’*** Bepaal a$ een veldnaam bevat 

27309 A=-2 : IF A$ THEN RETURN 

2740 B$= A$ : FOR J=G TO BDAT-1 

2750 A$=MID$(DAT$(O,J),2,LEN(BS$)) : GOSUB 1839 : IF A$=B$ THE 
N A=J : J=BDAT 7 

2769 NEXT 

2770 IF A>-1 THEN NUM=(LEFTS(DAT$(O,A),1)=".") ELSE NUM=0 
2789 A$=B$ : RETURN 

2819 ’**« Haal woord uit ia® 

2830 K=INSTR(C6$+CHR$(34),MIDS(IAS, I,1)):IF K=l THEN I=I+1 : 
GOTO 2830 

2849 J=Il : IF K=11 THEN J=l+1 : GOTO 2890 

28509 IF K=@ THEN I=I+1 : K=INSTR(C6$,MID$(IA$, I, 1)) :GOTO2850 
286 A$-MID$(IA$,J, I-J) 

2879 IF K=1 THEN I=I+1 : K=INSTR(C6$, MID$(IAS, I, 1)):GOTO 2870 
2883 RETURN 

2899 I=I+1 : IF MID$(IAS,I,1)=CHR$(34) THEN K=1l : GOTO 2860 
2895 IF MID$S(IAS,I,1)=CHR$(13) THEN K=1g : GOTO 2860 ELSE 289 


2919 '**x Test of a$ uit getallen bestaat 

2930 GTL=-1 : IF A$="" THEN GTL=O : RETURN 

2940 FOR J=1 TO LEN(A$) : B=ASC(MID$(A$,J,1)) : GTL=(GTL AND 
(B>47 AND B<58)) : NEXT 

2952 RETURN 

3010 '*** Zoek alles dat aan de voorwaarden voldoet 

3249 FOR SR=BE TO EI 

3059 LP=S : TP=O : TST=-1 : IF TT(@,4)=-1 THEN 3100 

3060 IF TT(TP,1)=@ THEN LS(LP)=TP : TP=TI(TP,@) : LP=LP+1 : G 
OTO 3065 

3077 GOSUB 3239 : 'Test 

3080 IF TT(TP,2)+TST=@ THEN TP=TT(TP,3) : GOTO 3069 

3090 LP=LP-1 : IF LP>=0 THEN TP=LS(LP) : GOTO 3080 

3109 IF TST=-1 THEN WERK(FP+1)=SR : FP=FP+1 

3119 NEXT 

3129 RETURN 

3219 '*xx Test een veld 

3230 ON TT(TP,1) GOTO 3249, 3250, 3260, 3270, 3280, 3290, 3300, 3310 
„3329, 3330, 3340, 3350 

3249 TST=(DATS(RANG(SR), TT(TP,@)) <TVS(TP)) : RETURN 

3259 DATS(RANG(SR), TT(TP,@))>TVS(TP)) : RETURN 

3260 DATS(RANG(SR), TT(TP,@))=TV$(TP)) : RETURN 

3270 TST=(DAT$(RANG(SR), TT(TP,@)) <=TV$(TP)) : RETURN 

3280 TST=(DATS$(RANG(SR),TT(TP,@))>=TV$(TP)) : RETURN 

3298 TST=(DATS(RANG(SR), TT(TP,B)) <>TVS(TP)) : RETURN 

3300 TST=(VAL(DATS(RANG(SR), TT(TP,@))) VAL(TVS(TP))) : RETURN 
3319 TST=(VAL(DATS(RANG(SR), TT(TP,G)))>VAL(TVS(TP))) : RETURN 
3329 TST=(VAL(DATS(RANG(SR), TT(TP,@)))=VAL(TVS(TP))) : RETURN 
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3339 TST=(VAL(DATS(RANG(SR), TT(TP,@))) <=VAL(TVS(TP))) : RETUR 
N 

bis TST=(VAL(DATS(RANG(SR), TT(TP,@)))>=VAL(TVS(TP))) : RETUR 
aad TST=(VAL(DATS(RANG(SR), TT(TP,@)) ) <>VAL(TVS(TP))) : RETUR 
3718 '*** Rangschik records na verander/insert 

3749 RP=@ : IF SO-Z THEN 3820 . 

3759 RP=RP+1 : IF RP>=VR THEN 3820 

3770 RW=RP : IF DATS(RANG(RW),SO-1)="" THEN 3759 ELSE 3790 
3780 SWAP RANG(RW),RANG(RW+1 ) 

3799 RW=RW-1 : IF RW<=9 THEN 3750 

3800 IF DAT$(RANG(RW),SO-1)>DATS(RANG(RW+1),S0-1) THEN 3780 
3814 IF DATS(RANG(RW),SO-1)="" THEN 3789 ELSE 3750 

3823 RETURN 

3919 '*Xx Zet lege records in lijst 

W=VR-1 

I=RANG (RW) 


3950 T=-1 : FOR J=0 TO BDAT-1 : T=(T AND (DATS(I,J)="")) : NE 
XT 

3969 IF T THEN VR=VR-1 : IF VR<1 THEN VR=1 ELSE SWAP RANG(VR) 
„ RANG(RW) 

3970 RW=RW-1 : IF RW>O THEN 3940 

3983 RETURN 


4019 '** Print een aantal records 

4029 '*** Insprong vanuit timer 

4049 ON INTERVAL=1G GOSUB 4959 : RETURN 

4950 A$-INKEY$ 

RAe IF A$=CHR$(32) THEN WP=WP-14/(PA+1) : SC=1 : IF WP<O THE 
N 20 

4070 IF A$=CHR$(31) 
4980 IF H 

4099 IF THEN 4249 

4100 IF A$=CHR$(17) THEN SR=VR : WP=FP+1: RETURN 

4118 IF (WP>FP) OR (SC>SM) THEN RETURN 

4120 IF (SC+REG>SM) AND (REG<SM) THEN RETURN 

4139 GOSUB 4335 : SC=SC+REG : WP=WP+1 : RETURN 

4219 ’*** Print aan een stuk door 

4229 '** Insprong vanuit timer 

4240 ON INTERVAL=1G GOSUB 4259 : RETURN 

4250 A$=INKEY$ : IF A$<>"" THEN 4040 

4269 IF WP>FP THEN RETURN 

4270 IF SC+REG>SM THEN SC=1 

4280 GOSUB 4339 : WP=WP+1 

4290 SC=SC+REG : RETURN 

4319 '**x Druk af op scherm/printer 

4339 IF SC=1 THEN GOSUB 1839 : LOCATE ,5 

4343 OPEN “CRT:" FOR OUTPUT AS #1 : GOSUB 4438 : CLOSE #1 
4352 IF PR THEN OPEN “LPT:” FOR OUTPUT AS #1 : GOSUB 4439 : C 
LOSE #1 

4369 RETURN 

4419 '*** Druk een record af 

4439 PRINT #1, "" 

4449 FOR I=9 TO PA 

4450 IF (DISP(I,1) AND 2)=3 THEN PRINT #1,“" ELSE PRINT #1," 
“; _: GOTO 4479 

4469 IF I<>@ AND MCODE<>4 AND MCODE<>6 THEN PRINT #1,SPC(3); 
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4410 IF (DISP(I,1) AND 1)=0 THEN 4519 

4489 IF DISP(I,G)=-1 THEN PRINT #1, "No"; : GOTO 4500 

4490 PRINT #1,MID$(DATS(O,DISP(I,@)), 2); 

4500 PRINT #1," :"; 

4510 IF DISP(I,O)=-1 THEN PRINT #1,WERK(WP); ELSE PRINT #1,DA 
T$(RANG(WERK(WP)), DISP(I,8)) ; 

4520 NEXT I 

4533 RETURN 

5019 '**x Sorteer compleet bestand 

5939 T=SO : I=l : GOSUB 2839 : GOSUB 1839 

5249 IF A$="op" THEN GOSUB 2839 : GOSUB 1830 

5052 GOSUB 2939 : IF GTL THEN SO=VAL(A$) ELSE GOSUB 2739 : SO 
zA+1 

5969 IF SO<d OR SO>BDAT THEN SO=T : FO=1-GTL : GOTO 510 
5065 IF SO=@ THEN GOSUB 639 : GOTO 5109 

5078 LOCATE 9,22 : PRINT"Het bestand wordt gesorteerd op :";T 
AB(SW-1); 

5089 LOCATE 0,23 : PRINT * “+MIDS(DAT$(@, SO-1), 2, SW-7) ; TA 
B(SW-1) ; 

5090 GOSUB 3740 

5149 RETURN 

7010 '*** Nieuw record verander/insert 

7020 '*« Insprong vanuit timer 

7040 ON INTERVAL=1@ GOSUB 7052 

7050 IF ((WP<=FP) OR VER) THEN 7080 

706% IF VR>MDAT THEN FO=5 : RETURN 

71010 LDAT=VR : WERK(WP)=VR : VR=VR+1 : FP=WP 

7080 IF WP>FP THEN LOCATE 9,22 : PRINT"Even geduld A.U.B." : 
RETURN 

7090 LOCATE @,22 : PRINT TAB(39) 

7100 WDAT=RANG(WERK(WP)) : SP=1 :PS=9 

7119 SA=PA : IF SA>SM THEN SA=SM 

7129 PS=0 : GOSUB 7239 

7139 ON INTERVAL=1 GOSUB 7340 

7149 RETURN 

7219 '*** Nieuwe pagina/set ia$ 

7230 GOSUB 1939 : LOCATE 28,3 : PRINT'Pagina :“SP : LOCATE 9, 
3 : PRINT"Record :"WERK(WP) 

1249 WV=PS : LOCATE 9,5 

7250 FOR I=PS TO PS+SA : PRINT MID$(DAT$(O,DISP(1,8)),2)" : * 
;LEFTS(DATS(WDAT, DISP(I,@)), SW-LEN(DATS(O, DISP(I,0)))-3): NEX 
T 


7269 CY=5+WV-PS : I=DISP(WV,@) : CX=LEN(DATS$(@,I))+2 

71270 ZP=l : ZE=LEN(DATS(WDAT, I)) : MID$(IAS, 1) =DATS(WDAT, I)+S 
PACE$(255-ZE) 

7275 CK=CK-ZE 

7289 LOCATE G,CY,O : PRINT MIDS(DATS(O,I),2)" ? “LEFTS(IAS, SW 
=CX-1) 

7290 LOCATE CX,CY,1 : RETURN 

7318 "xxx Besturing insert/verander 

71329 '*** Insprong vanuit timer 

7340 GOSUB 1539 : IF IB$="" THEN RETURN 

7350 CODE=INSTR(C2$,IB$) : IF CODE=2 THEN RETURN 

7368 I=DISP(WV,G) : DATS(WDAT, I FTS(IAS,ZE) : CK=CK+ZE 
7378 LOCATE CX-2,CY,O : PRINT" LEFTS$(IAS,SW-CX-1) : IF CK>M 
K THEN FO=5 : RETURN 
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7380 
7390 
7409 
7410 
7420 
7430 
7440 
7450 
7460 
7470 
7480 
7490 
7500 
7519 
7515 
7520 
7530 
Ja" 
7540 
7610 
7630 
7640 
‚WV) zl 
7650 
7660 
8010 
8930 
8931 
8232 
8933 
8734 
8940 
8248 
32 
8949 
8950 
8955 
I,1) 
8960 
8970 
8080 
8090 
8100 
8219 
8230 
8240 
8250 
8260 
8279 
8280 
8300 
8310 
8510 
8530 
8540 
8559 
8560 


ON CODE GOTO 7390, 7390, 7430, 7460, 7470, 7490, 7500 

WV=WV+1 : IF WV>PA THEN 7460 

IF WV<=PS+SA THEN 7260 5 

PS=PS+SA+1 : SP=SP+1 : SA=PA-PS : IF SA>SM THEN SA=SM 

GOTO 7230 

WV=WV-1 : IF WV<O THEN 7470 

IF WV>=PS THEN 7269 

PSzPS-SA-1 : SP=SP-1 : SA=SM : GOTO-7230 

P+2 : IF RANG(WP-2)=@ THEN GOSUB 7630 

WP=WP-1 : IF WP<O THEN WP=G 

ON INTERVAL=1 GOSUB 7043 : RETURN 

SR=LDAT : WP=FP+1 : RETURN 

LOCATE @,22 : PRINT"Record wissen (j/n) ?” 

A$=INPUT$(1) : IF A$="j" THEN 7529 

LOCATE @,22 : PRINT SPACES(39) : GOTO 7390 

CK=CK+LEN(DATS(WDAT, DISP(WV, B) ) ) 

FOR J=@ TO BDAT-1 : CK=CK-LEN(DAT$(WDAT,J)) : DATS(WDAT, 
: NEXT 

GOTO 7460 

‘xk Maak record g in orde 

FOR WV=@ TO BDAT-1 

IF INSTR(”.“+CHR$(32),LEFTS(DAT$(O, WV), 1))=0 THEN DAT$(O 

CHR$(32) +DATS(O, WV) 

NEXT 

RETURN 

'xxK Save bestand 

GOSUB 8739 : IF F$="" THEN FO=1l : RETURN 

IF LEFT$(IAS, 1)=", " THEN MID$(IA$,1,1)=" ":GOTO 8933 

IF LEFT$(IAS, 1) <>CHR$(13) THEN FO=1 : RETURN 

GOSUB 2039 : IF FO<>@ THEN RETURN 

LOCATE @,22,0 : PRINT"Even geduld A.U.B";TAB(SW-1) ; 

GOSUB 3040 

AS=LEFT$(F$,3) : GOSUB 1839 : IF A$<>"cas" THEN GOSUB 82 


z 


OPEN F$ FOR OUTPUT AS #1 

LOCATE @,22,9 : PRINT"Saving “;F$;TAB(39); 

J=0 : FOR I=@ TO PA : IF (((SO-1)=DISP(I,G)) AND ((DISP( 
AND 2)=0)) THEN J=50 : NEXT 

PRINT #1,FP+2,REG-1,J; 

WP=FP+1 : WERK(WP)=@ : GOSUB 4440 :'save veldnamen 

FOR WP=@ TO FP : GOSUB 4445 : NEXT :'save records 

PRINT #1,”” : CLOSE 1 
RETURN 

***x Backup voor save 
IF MID$(F$, INSTR(F$, * 
ON ERROR GOTO 8300 
KILL LEFT$(F$, INSTR(F$, “. “))+"dab"” 

NAME F$ AS LEFT$(F$, INSTR(FS, “. "))+"dab” 
ON ERROR GOTO 9530 

RETURN 

IF ERR=53 THEN RESUME NEXT 

ON ERROR GOTO 9539 : GOTO 9530 

’*Xk Laadt een bestand 

GOSUB 8739 : IF A$="" THEN FO=1 : RETURN 
OPEN F$ FOR INPUT AS #1 

LOCATE @,22,9 : PRINT"Loading “;F$;TAB(SW); 
CK=D : INPUT #1, VR,BDAT, SO 


"),4)<>".dat” THEN RETURN 
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8575 
8580 
8590 


GOSUB 1339 
FOR I=8 TO VR-1 
FOR J=@ TO BDAT-1 : LINE INPUT #1,DAT$(I,J) : CK=CK+LEN( 


DATS(I,J)) : NEXT J 


8600 
8610 
8620 
8710 
8730 
8740 
8745 
8750 


Tj 


8760 
9015 
9030 
9740 
9050 
9060 
9119 
9130 
9140 
9152 
9160 
9170 
9180 
9190 
9510 
9530 
9540 
9550 
9560 
9570 
9580 
9595 
9810 
9830 
9840 
9850 


NEXT I 

CLOSE #1 

GOSUB 639 : RETURN 

‘xxx Bepaal filenaam 

I=1 : GOSUB 2839 : IF K=3 THEN K=O : GOSUB 2850 

IF A$<>"" THEN F$ = A$ ELSE 8760 

MIDS( IAS, 1)=MID$( IAS, I) 

I=INSTR(AS$, ":") : IF INSTR(AS, ".")=0 THEN F$=LEFT$(A$, 86+ 
dat” 

RETURN 

'xk Catalog files 

GOSUB 1939 

GOSUB 8739 : IF A$="" THEN A$="*.dat" 

FILES A$ 

RETURN 

'xxx Wis een file 

FT$=F$ : GOSUB 1939 : GOSUB 8730 

IF A$="" THEN FO=1l : RETURN 

LOCATE @,22 : PRINT"Moet ik ";F$;" wissen (j/n) ?"; 
B$=INPUT$(1) : IF B$<>"j" THEN RETURN 

LOCATE 9,22 : PRINT"Ik wis nu “;F$;TAB(SW-1); 

KILL F$ 

F$=FT$ : RETURN 

"xx Error trapping 

IF ERR=3 THEN RESUME 340 

FO=9 : FZ=zERR : FL=ERL 

IF FZ>=50 THEN FO=8 

IF FZ=66 THEN F( 
IF FZ=53 THEN FO= 
RESUME 9590 
RETURN 

‘kk Beeindig programma 

ON ERROR GOTO @ 

CLS : LOCATE @,21 : PRINT"U kunt het programma weer” 
PRINT "opstarten met behoud van gegevens” 


9869 PRINT"met : 'goto 9889’ " 
9873 END 

9885 ON ERROR GOTO 9530 

9899 GOTO 332 

Checksums: 


Gebruik het programma van paragraaf 4.6. 


„19:014B 27:E68D 
119: 1DE4 125:26B9 
169: BE95 170: 4091 
219:CB82 

220:511F 239:2016 
319:1BAD 339:AC6F 
345:C88E 347:D193 


40:7D0C 109:8152 
149:804F 159:59F6 
199:A322 209:FECA 

blok-checksum : ECD3 
250:8B31 269:FFA3 
342:CE2E 343:9614 
360:ABC2 375:409A 


380: DC54 blok-checksum : 252E 
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:829C 
:37D6 
:61DA 


:5721 
:6F79 
:1B68 


:0119 
:3D1F 
:SBFF 


:3E19 
:ECCD 
:798F 


:CEF6 
:B691 
:2463 


:F355 
:D9D1 
:67F9 


:5D8D 
:BA2B 
:3EF2 


:8812 
:BB1F 
:A25E 


:D941 
:9BFD 
:1725 


:ECD@ 
:748F 
:ACB2 


:2594 
:2C55 
:G92F 


:86B7 
:5659 
:4E8D 


:DA76 
:F7F4 
:2585 


:DC96 
:29E3 
:3944 


:2829 
:D150 
:AZE9 


:BABF 
:0214 
:6F76 


:49AG 
:4E87 
:E624 


:CC76 
:E143 
:E893 


:OAGF 
:CDF6 
:2C2F 


:9647 
:3E13 
:465A 


:7C14 
:6B99 
:9E93 


:6FAC 
:E4BA 
:B669 


: DACB 


3112 
482A 


:FAAE 
:D5A2 
:ECCE 


:3368 
:4C56 
:4A06 


:E3E4 
:7178 
:BOB4 


:407B 
:4D1B 
:CCBD 


:5012 
:D912 
:515B 


420: AE6B 
455:5A57 
:EFOA 


730: BFOA 740: 10D7 
blok-checksum : 

799: 58CB 

840: 8BBO 


960:24DB 1919:EBA6 

blok-checksum : 
1119:81CA 1139:1D23 
1179:55D6 1189:9985 
1239:5152 1249:D73C 

blok-checksum : 
1339:0C79 1349:7EC5 
1519:4462 1539:9FEC 
1575:DB83 1589:427A 

blok-checksum : 
1639:8102 1649:283A 
1689:9D2A 1699:9266 
1850:089E 1860:34C8 

blok-checksum : 
2050:792F 2060:969D 
2100:D801 2119:EF9G 
2150:A595 2169:B598 

blok-checksum : 
2210:31B2 2220: 4CD6 
2260:936B 2270:306F 
2310:D023 2329:71CA 

blok-checksum : 
2370:6FF1 2380:4646 
2740:13F1 2750:A17A 
2819:3FC4 2839:9205 

blok-checksum : 
2889:D776 2899:802B 
2940:DD6E 2959:D6F6 
3060:E59D 3070: 4ESE 
blok-checksum : 
:CF76 3219:EBCE 
EC55 3279:092E 
:4AA6 3329:4B16 
blok-checksum : 
3740:E549 3750:CA6D 
3800:91A5 3819:3EC6 
3940:69DC 3950:DDCD 

blok-checksum : 
4020:808C 4049:5D5F 
4080:B3AC 4099: 4C4C 
4130:BF8B 4219:70E7 

blok-checksum : 
4270:5B41 4289:4DB4 
4349:7AA7 4350:E980 
4440:45AA 4450: 1FA5 

blok-checksum : 


52B7 


B2CD 


9619 


D623 


9618 


FOA1 


866F 


AA20 


CF2D 


EE46 


8D96 


D8A1 


39B6 


7DD3 
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4470: 
4529: 
5059: 
5099: 
5109: 
7069: 
7119: 
7239: 
7240: 
7289: 
7350: 
1400: 
7410: 
7469: 
7510: 
7619: 
7639: 
8030: 
8249: 
8969: 
5979: 
8230: 
8289: 
8549: 
8559: 
8600: 
8749: 
9030: 
9049: 
9149: 
9199: 
9569: 
9570: 
9849: 
9899: 
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7163 
6A59 
8233 
A912 
D276 
4D97 
B83C 
407E 
26CA 
SADA 
349A 
32AE 
22D3 
B6E2 
23DF 
OE61A 
89DB 
A96A 
C4F6 
1247 
gaar 
7099 
DD76 
B58E 
9D18 
6E59 
5145 
DOE4 
18B9 
C762 
4863 
155C 
195E 
D98C 
C9BB 


4485: 
4539: 
5069: 


7019: 
1070: 
7129: 


7259: 
71299: 
7369: 


71429: 
7410: 
7515: 


7649: 
8931: 
8948: 


8989: 
8240: 
8309: 


8569: 
8619: 
8745: 


9950: 
9159: 
9510: 


9582: 
9859: 


4703 
D5F6 
FF93 


F63E 
1547 
E1EC 


EO1B 
DB45 
97A8 


65C9 
4BCD 
3ECD 


7957 
E664 
FE16 


JEEB 
E382 
B344 


16DC 
B854 
BD99 


B47B 
E691 
2EBA 


28FC 
209B 


4495: 
5015: 
5965: 


7929: 
7489: 
7139: 


7269: 
7319: 
1378: 


71439: 
7489: 
7520: 


7650: 
8932: 
8949: 


8999: 
8259: 
8319: 


8579: 
8629: 
8759: 


9060: 
9169: 
9530: 


9590: 
9869: 


BE23 
D38C 
F14B 


BC8C 
Z44D 
871A 


428D 
3AFS9 
1951 


60BD 
Z93B 
29EE 


3728 
AFE7 
BO1A 


CDFF 
961D 
B3A9 


F8FO 
5AB1 
5E96 


DC76 
FB7A 
A3EG 


E2F6 
9EB8 


:264C 4519:5836 


:1079 5080:AETE 
blok-checksum : 


:D88E 7450:C684 
:083C 71 DOB 
:D876 7219:B9EC 


blok-checksum : 


:59CC 7275:6718 
:928C 73 
:12FF 7399:01CF 


B3C 


blok-checksum : 


:6706 74509:5640 
:43A4 7509: 
:D464 7549:6DD7 


582 


blok-checksum : 


:DE76 8919:DAD2 
:262C 803 
:2669 8055:BB16 


B2E 


blok-checksum : 


:D876 8219:6D41 
:9CE6 827 
:D33E 8539:A956 


39B 
blok-checksum : 


:D7AA 8599:9D72 
:B697 8730:3B9A 
:E176 9019:337A 


blok-checksum : 


:7C23 9139:19A4 
:FE2F 9189:DD30 
:56D4 9559:2F1C 


blok-checksum : 


:9D5B 9839:BCIE 
:1C24 9889:E3AC 


blok-checksum : 


ABFE 


A681 


BCB2 


20D8 


5090 


F7E1 


879E 


FC64 


E564 


7.3 MAIL/MERGE 


Door middel van dit programma is het mogelijk om met standaardbrieven te werken. Stan- 
daardbrieven zijn brieven waarvan de inhoud ongewijzigd blijft, maar alleen bepaalde ge- 
gevens, zoals naam en adres, veranderen. Dit natuurlijk zonder dat we dat telkens 
handmatig moeten veranderen. 

De gegevens uit het Databestandenprogramma worden gekoppeld aan een brief die met 
het tekstverwerkingsprogramma is gemaakt. 

Het blijkt dus al dat we in elk geval twee dingen nodig hebben: een brief (tekst) en een be- 
stand. 

Het bestand hoeft niet aan speciale voorwaarden te voldoen. In de brief moeten we echter 
aangeven welke gegevens we uit de database in de brief willen hebben en op welke plaats. 
Dat is heel gemakkelijk. In de tekst gebruiken we de ve'dnamen die we in de database aan 
de velden hebben toegekend en wel omhuld door het control-d karakter (zie hiervoor ook 
de tekstverwerker). Bijvoorbeeld. 


Geachte DNaamD . 
Hoe gaat het in pplaats 


Naam en plaats zijn dan veldnamen zoals we die in de database gebruiken. Het maakt niet 
uit of we hoofd- of kleine letters gebruiken. Spaties tussen de beide control-d karakters wor- 
den genegeerd. 


We starten het Mail/Merge-programma. Allereerst wordt, evenals bij de tekstverwerker, ge- 
vraagd naar een aantal printergegevens. Zie voor de uitleg de tekst bij de tekstverwerker. 
Vervolgens moeten we device- en filenamen opgeven. Nu de disk-drive c.q. cassetterecor- 
der niet onderbreken voor het programma klaar ss met z'n activiteit. 

Bij de cassetterecorder dienen we de remote-plug te gebruiken. 

De printerkop moet de eerste keer goed bovenaan de eerste pagina staan. De volgende 
papiertransporten worden door het programma zelf verzorgd. 


Als we een beperkt deel van ons databestand een brief willen sturen, bijvoorbeeld alleen 
alle mensen in Enschede, dan moeten we de selectie al maken bij het opslaan van het data- 
bestand vanuit de database. Zie aldaar voor de manieren waarop dat mogelijk is. 


Het resultaat van ons voorbeeld zou kunnen zijn: 
Geachte Heer Jansen, 
Hoe gaat het in ZWOLLE. 


Geachte Heer Klaassen, 


Hoe gaat het in ARNHEM. 


Geachte Heer Peters, 


Hoe gaat het in ZWOLLE. 
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Programma: 


1 kt 
2 ’* _ MSX MAIL-MERGE % 
3 ’X _ VERSIE 1 1986 * 
4 *X __H GROOT LIPMAN x 
5 Ps OR HOK 
6 


19 CLEAR 509, 45020!:DEFINT A-Z:DEF FNH(X)=X\256+2 

55:DEF FNL(X)=X MOD 256-256*(X MOD 256<9) 

25 GOSUB 5040: ’PRINTERINSTELLINGEN 

37 GOSUB 22900:  MACHINECODE 

47 GOSUB 1990:’TEKST INLEZEN 

57 GOSUB 2400: ’DATA OPENEN 

63 CLS:LOCATE1G, 5: PRINT" PROGRAMMA RUNT" 

79 GOSUB 4995: VIND DATAVELDEN 

199 FOR B=1 TO AR-1 

119 FOR J=@ TO AV-1:LINE INPUT #1,R$(J):NEXT 

129 GOSUB 6409: ’ INSERT RECORD 

135 GOSUB 7000: ’ PRINT 

149 GOSUB 8099: WIS RECORD 

159 NEXT: CLS: END 

140% ’TEKST INLEZEN 

1952 CLS:LOCATE 19,7: PRINT"MAIL-MERGE" 

1994 LOCATE 5,19: INPUT"Device 2 "5V$ 

1919 LOCATE 5,13:INPUT"Tekstfile : ";T$ 

1939 POKE TS,211:POKE TT, 197:EK=TT:NS=EK-1:BK=TS: 

SL=NS-BK:GOSUB 9939: U=USR2(BK) : POKE TS+1,32:POKE 

TT, 197 

1047 A$=V$+": "+T$ 

1959 IF LEN(V$)>1 THEN IF (ASC(V$) OR 32)=113 AND 
(ASC(MID$(V$,2)) OR 32)=197 THEN _BLOAD(AS) ELSE 
BLOAD A$ ELSE BLOAD A$ 

1963 NS=USR4() : RETURN 

2000 '’DATA OPENEN 

2019 LOCATE 5,16:INPUT “Datafile : “;D$ 

2929 OPEN V$+":"+D$+".DAT" FOR INPUT AS #1 

2033 INPUT #1,AR, AV, U 

2945 DIM VN$(AV-1),R$(AV-1) 

2050 FOR X=@ TO AV-1:LINE INPUT #1,A$:GOSUB 3000: 

VN$(X) =A$: NEXT 

2965 RETURN 

3007 ’FORMATTEER A$ 

3019 IF LEFT$(AS, 1)=" "THEN A$=MID$(A$,2):GOTO 30 
15 
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3029 IF RIGHT$S(A®8,1)=" "“ THEN A$=LEFT$(A$, LEN(A$) 
—1):GOTO3Z25 

3939 FOR D=1 TO LEN(A$):C=ASC(MID$(A$,D)): IF 64<C 
AND 91>C THEN A$=LEFT$(A$, D-1)+CHR$(C+32) +RIGHT$ 
(A$, LEN(AS) -D) 

3045 NEXT: RETURN 

4090 ’VIND DATAVELDEN 

4019 DIM P(50,1):NR=0 

4020 FOR X=TS TO NS 

4939 IF PEEK(X) <>196 THEN NEXT: RETURN 

4540 U=USRI(X) :A$=" 

4050 IF PEEK(X)=196 OR PEEK(X+1)=197 THEN U=USR1( 

X): GOTO 4979 

4069 A$-A$+CHRS$(PEEK(X)) : U=USR1 (X) : GOTO4G5O 

4975 GOSUB 3000 

4089 NR=NR+1:P(NR,G)=X:P(NR, 1) =AV 

4997 FOR Y=Z TO AV-1:IF VN$(Y)=A$ THEN P(NR,1)=Y 
4105 NEXT Y 

4118 IF P(NR,1)=AV THEN PRINT A$+" is een foute v 

eldnaam. “:END 

4120 NEXT: RETURN 

5997 ’PRINTERINSTELLINGEN 

5018 CLS:KEY OFF:LOCATE 19,7:PRINT"PRINTER" 

5929 LOCATE 5,19: INPUT"Gewenste Breedte : "; 
5739 LOCATE 5,13:INPUT"Papierregels 

5949 LOCATE 5,16:INPUT"Tekst regels 3 

5050 IF PB<49 OR PB>259 OR LP<RP OR LP>140 OR, ‚RP< 
29 THENPRINT:PRINT"Waarden niet geaccepteerd. ":PR 
INT"Druk een toets. “A$=INPUT$(1) : GOTOS5G90 

5069 RETURN 

6933 ’ INSERT RECORD 

6913 FOR N=NR TO 1 STEP —1 

6929 W$ERS(P(N, 1)) :L=LEN(WS$) : PK=P(N, 9) 

6935 FOR M=1 TO L:U=USR9(PK) :POKE PK, ASC(RIGHTS$(W 

8,M)):NEXT 

6540 NEXT:POKE TT, 197: RETURN 

7000 REM PRINT 

7015 GOSUB 997: S1=1:SG=D 

7020 GOSUB 750G:LPRINT R$:IF SO=G OR MD>1 GOTO 79 

25 

7930 RETURN 

7590 IF S1 THEN SL=(LP-RP)\2: TL=RP:EL=LP-TL-SL:S1 
=G:MD=1:CL=SL:POKE 56931!,PB:POKE 56932!,9:US=BK+ 
L 

7519 R$=SPACES(PB) 

7520 Y=VARPTR(R$):POKE 56929!,PEEK(Y+1):POKE 5693 

G!,PEEK(Y+2) 
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7538 ON MD GOTO 7690, 7700, 7805, 7900 

7698 CL=CL-1:IF CL=S THEN MD=2:CL=TL 

7619 RETURN 

7795 US=USR5(US) 

7718 XZ=INSTR(R$, CHR$(&HC5) ): IF XZ THEN R$=LEFT$( 
R$, XZ-1)+SPACES(PB-XZ+1) : S9=1 : MD=3 

7715 XZ=INSTR(R$, CHR$(&HDO) ): IF XZ THEN R$=LEFT$( 
R$, XZ-1)+SPACES(PB-XZ+1) 

7720 XZ=INSTR(R$, CHR$(&HC2)): IF XZ THEN R$=LEFT$( 
R$, XZ-1)+SPACE$S(PB-XZ+1) : MD=3 

7725 IF US>NS THEN Sg=1:MD=3 

7738 CL=CL-1:IF CL=@ THEN MD=4: CL=EL 

7740 RETURN 

7897 CL=CL-1:IF CL=9 THEN MD=4: CL=EL 

7819 RETURN 

7905 CL=CL-1:IF CL=S THEN MD=1:CL=SL 

7913 RETURN 

8909 'WIS RECORD 

8919 FOR N=1 TO NR 

8929 FOR M=1 TO LEN(RS(P(N,1))):U=USRI(P(N,G)) :NE 
XT:NEXT : RETURN 

970 'INIT ROUTINES 

9029 BK=TS:NS=USR4(G) :EK=TT: SL=NS-BK 

3D POKES56I35!, FNL(BK) : POKE56936 !, FNH(BK) : POKE 5 
6933!, FNL(EK):POKE 56934!, FNH(EK) : POKE 56925!, FNL 
(SL) :POKE 56926!,SL\256 

9549 RETURN 

220073 REM DUMP MACHINECODE 

22905 SUM=D:RESTORE 22909: CLS:LOCATE 19, 19: PRINT" 

EVEN GEDULD" 

22010 READ A$: IF A$="s" OR A$="S" THEN IF SUM=29 
THEN GOTO 22195 ELSE PRINT “DATA ERROR": STOP 
22029 Y=VAL("&H"+A$): IF LEN(A$)=4 THEN X=Y ELSE P 

OKE X,Y: X=X+1: SUM=SUM XOR Y 

22030 GOTO 22910 

22197 DEFUSR1=56857! : DEFUSR2=56757! : DEFUSR4=56677 
1:DEFUSR5=56397 ! : DEFUSR9=56189! 

22175 TS=&HAFC8: TT=&HDAA8 

22115 POKE 56941!,FNL(TS):POKE 56942!,FNH(TS) : POK 

E 56939!,FNL(TT):POKE 56940!, FNH(TT) 

22129 RETURN 

22229 REM 1:DELETE 1 KARAKTER 

22230 DATA DE19,2A,6B, DE, ED, 5B, F8,F7,B7,ED, 52, 20, 

76, 1A,FE,C5,C8, 18,0E,E5,C1,2A,F8,F7,23,ED, BO, 1A, F 
E‚C5,29,91,1B,3E, 29, 12,C9 


244 


22249 REM 2:DELETE MEERDERE KARAKTERS 

22253 DATA DDB5,2A,F8,F7,ED, 4B, 5D, DE, 99, 23,E5, 2A, 
6B, DE, D1,D5,B7,ED, 52,E5,C1,73,E1,E5,ED, 5B, F8,F7,1 
3,ED,B%,E1,2B, 2B,ED, 5B, F8,F7,ED, 52,E5,C1,ED, 5B, 6B 
‚DE, 1B, 2A,6B, DE, 36, 29, 78,B1,C8,ED, B8, C9 

22255 DATA ED,B9,E1,2B,7E,FE,C5, CZ, 36, 29, 2A, 6B, E2 
„36,C5,C9 

22289 REM 4: ZOEK TEKSTEINDE 

22299 DATA DD65,2A,6B, DE, 7E, FE, 29, 28, OB, FE, C5, 29, 
GA, 36,27,ED,5B,6B,DE, 12, 2B, 18,ED, 22,F8,F7,C9 
22305 REM 5:UITVULLEN 

22312 DATA DBF3, 2A,F8,F7,ED, 5B,61, DE, 3A, 63, DE, 47, 
7E,FE, 20, 29,07,23,7E,FE, 29, 20,01, 2B,7E,E5,D5,E1,7 
7,E1,13,23,FE,DJ, 28,08,FE,C2, 28,94, 10,EE, 18,94, 22 
‚F8,F7,C9 

22320 DATA E5,DD,E1,E5,3E, 29, ED, 4B, 63, DE, 2A, 61, DE 
‚ED,B1,E1, 29,EA,DD, BE, GJ, 20,0B, 1B,D5,E1, BE, 28, 13, 
DD, 22,F8,F7,C9, 1B,D5,E1, BE, 28,08, 36, 20,DD, 2B, 2B, B 
E‚29,F8,DD,22,F8,F7,2A,61,DE, 3E, 29, BE, 29,93, 23, 18 
‚FA 

22330 DATA BE, 28,03, 23, 18,FA,BE, 29,03, 23, 18, FA, E5 
‚C1,ED,5B,63,DE, 2A,61,DE, 19, 2B, B7,ED, 42, D8, 09, E5, 
BE, 20,03, 2B, 18,FA,ED, 5B, 61, DE 

22349 DATA 1A,FE, 29, 29,03, 13, 18,F8, 1A, FE, 20, 28, 3 
‚13,18,F8,E5,B7,ED, 52,E1,38,E5,D5,E5,ED, 52,E5, C1, 
03,E1,E5,E5,D1,13,ED,B8,E1,23,D1,C1,E5,B7,ED, 42,E 
1,CB,C5, 18, CE 

22419 REM 9: INSERT 1 KARAKTER 

22420 DATA DB74, 2A,6B,DE,ED, 4B, F8,F7,B7,ED, 42, CB, 
E5,C1,2A;6B, DE, ED, 5B, 6B, DE, 2B, 1A, FE, C5, 20,96, 7E, F 
E‚D3,C8,36,C5,ED, B8, 3E, 29, 12,C9 

22999 DATA S 

3000D INPUTAS:PRINTA$, PEEK(VAL( “&h“+A$) ) : GOTO3000 
5 
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8 ASSEMBLER/DISASSEMBLER 


Een groot voordeel van programma's geschreven in machinecode is dat deze veel sneller 
werken dan dezelfde programma's geschreven in BASIC. Programmeren in machinecode 
Is echter veel lastiger en stelt hogere eisen aan de programmeur. 

Het nu volgende programma is een handig stuk gereedschap voor degenen die zich thuis- 
voelen in de wereld van de machinecodes. 


INTYPEN EN STARTEN 


In het programma wordt onderscheid gemaakt tussen hoofd- en kleine letters en deze moe- 
ten daarom ook precies zo worden ingetoetst. Met name geldt dit voor de DATA-regels 
50000 - 52220. De REM-regels hoeven niet te worden ingetoetst maar zijn wel nuttig als 
men de werking van het programma wil begrijpen. 

Een klein gedeelte van het programma is in machinecode geschreven. Deze machinecode 
bevindt zich in de DATA-regels 53000 en 53100. Deze regels worden door het programma 
gecontroleerd op typfouten. Indien op het beeldscherm de foutmelding: 


Data-error in regel 53000 of 53100 
verschijnt, dient men deze regels te controleren op typfouten. 
Indien we gebruik maken van een cassetterecorder in plaats van een diskdrive, dan moet 
regel 28030 worden gewijzigd. De devicenaam „A:" moet worden vervangen door „cas: '', 
Deze wijziging is ook in de REM-regels aangegeven. 
Nadat het programma zorgvuldig is ingetoetst en is opgeslagen op cassette of diskette, kun- 


nen we het programma runnen. Na enige seconden verschijnt het volgende menu op het 
beeldscherm. 
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MENU 


a. . assembleren 
d.. „disassembleren 
e.. . copieren 
Baan enb runnen 
P.. . poken 
2... . zoeken 
an --„geheugendump 
k........karakterdump 
anne ……... Saven 
> 
end menu ->hex pr.uit run 


Dit menu geeft een volledig overzicht van alle mogelijkheden die dit programma biedt. On- 
deraan het scherm zien we de zogenaamde prompt (>). Het programma wacht nu op een 
opdracht. We geven een opdracht door de betreffende letter in te toetsen, gevolgd door 
een aantal parameters. Voordat we iedere menu-keuze met bijbehorende parameters toe- 
lichten, eerst enige algemene informatie: 


Alle invoer dient ‚n kleine letters te worden ingetoetst, hoofdletters worden ge- 
negeerd. 

Getallen mogen zowel in decimale, hexadecimale, octale of binaire notatie worden 
ingevoerd. Hexadecimale getallen moeten worden voorafgegaan door een dollarte- 
ken ($) of &h, octale getallen moeten worden voorafgegaan door &0 en binaire getal 
len door &b. 

Door middel van functietoets F3 kunnen we kiezen tussen decimale of hexadecimale 
weergave van getallen op beeldscherm of printer. Standaard worden getallen hexa- 
decimaal weergegeven. Door eenmaal indrukken van F3 wordt gewisseld naar deci- 
male notatie. Nogmaals indrukken van F3 geeft weer hexadecimale notatie. 

Op dezelfde wijze als we met F3 kunnen kiezen tussen decimale of hexadecimale 
notatie, kunnen we met functietoets F4 de printer aan of uit schakelen. Printer „aan'” 
betekent dat alle uitvoer naar beeldscherm ook naar printer wordt gestuurd, 

Met functietoets F2 roepen we het menu op en met functietoets F1 beëindigen we 
een gekozen opdracht. F1 wordt ook gebruikt om het programma te beëindigen, 
maar dit werkt alleen als het programma wacht op een opdracht (dit is te zien aan 
de prompt >"). 

Net als in MSX-BASIC mogen we de cursor vrij over het beeldscherm bewegen, Op 
deze wijze kunnen we een opdracht nogmaals uitvoeren door met de cursor terug 
te lopen en op <RETURN> te drukken. Ook kunnen we zo, tijdens het assemble- 
ren of disassembleren, met de cursor terug lopen, wijzigingen aanbrengen in de in- 
structies en deze doorvoeren door vervolgens op <RETURN> te drukken 
Beëindig de opdracht weer met functietoets F1 


In het nu volgende zullen we alle opdrachten nader toelichten. 
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ASSEMBLEREN 
Syntax. a beginadres 


Met deze opdracht kunnen we een machinecode-programma in mnemonische code invoe- 
ren. Deze mnemonische code wordt meteen naar opcode vertaald en in het geheugen ge- 
plaatst. Het beginadres van dit geheugengebied geven we bij de aanroep van de opdracht 
mee. 

Dit adres wordt in decimale of hexadecimale notatie, afhankelijk van de met F3 gekozen 
instelling, weergegeven op het beeldscherm. Daarachter voeren we de instructie in in het 
normale Z80-formaat. gevolgd door <RETURN>- 

Bij foutieve invoer verschijnt de melding „error en de instructie moet opnieuw worden in- 
gevoerd, 

Bij correcte invoer wordt de instructie naar opcode vertaald en in het geheugen geplaatst. 
De opcode wordt direct op het beeldscherm getoond. Het adres wordt vervolgens met het 
juiste aantal bytes verhoogd en weergegeven op het beeldscherm. Nu kan de volgende in- 
structie worden ingevoerd. 

We beëindigen de opdracht met de instructie „end'’ of de functietoets F1 

Het is toegestaan met de cursor terug te lopen en veranderingen aan te brengen, mits we 
iedere verandering beêindigen met <RETURN>. Beëindig de opdracht ook nu weer met 
F1 


Voorbeeld: 
>a $cO0D 
„$CO00 1d hl,$f663 ’ 21 63 F6 
„$CO03 ld a,1 * 3E O1 
„$CA75 add a,2 * C6 2 
„$CO97 ld c‚a ’ 4F 
„$CO08 1d b‚2 * 06 OO 
-$COOA 1d (hl),$2 ’ 36 02 
„$COOC 1d ($f7fB), bc * ED 43 F8 F7 
„$CO18 end 

Opmerking: 


Het programma accepteert bij relatieve jumps zowel de relatieve waarde als het absolute 
adres. Een relatieve waarde moet worden voorafgegaan door een plus- of minteken en 
moet liggen tussen -128 en +127, 


DISASSEMBLEREN 

Syntax. d beginadres 

Deze opdracht doet precies het omgekeerde van de opdracht „Assembleren''. De opcode 
in het geheugen wordt vertaald naar mnemonische code en deze wordt op het scherm of 
op de printer afgedrukt. 


Het disassembleren begint bij het opgegeven beginadres. Beëindig de opdracht met de 
functietoets F1 


248 


Ook nu weer is het toegestaan met de cursor terug te lopen en veranderingen aan te bren- 
gen. Beëindig met F1 


Voorbeeld: 
>d$cAAD 
„$CO0D 1d hl, $F663 21 63 F6 
„$CAZ3 1d a,$1 3E @1 
„$COZ5 add a,$2 C6 92 


„$CA0B ìd b,$2 76 
„$COZA 1d (hl),$2 36 72 


„$C997 1d c‚a ’ 4F 
-$CO0C 1d ($F7FB), be ’ ED 43 F8 F7 


KOPIEER GEHEUGENGEBIED (COPY) 
Syntax: c beginadres,nieuwadres,lengte 


Met behulp van deze opdracht kunnen we de inhoud van een geheugengebied verplaat- 
sen. Zo kunnen we bijvoorbeeld ruimte vrijmaken in een machinetaalprogramma om nieu- 
we instructies tussen te voegen. 

Bij de aanroep van de opdracht geven we achtereenvolgens het beginadres van het te ver- 
plaatsen geheugengebied, het adres van het nieuwe geheugengebied en het aantal te ver- 
plaatsen bytes. 


RUN MACHINETAALPROGRAMMA 


Syntax: r startadres 


De machinetaalroutine met het opgegeven startadres wordt gedraaid, Het resultaat wordt 
weergegeven. 


Voorbeeld: 
>r$cO0D 
Start usr op adres $COZ0? (j/n) 
Resultaat: 3 

GEHEUGENDUMP 


Syntax: q beginadres 


Met deze opdracht wordt de inhoud van het geheugen dat begint bij het opgegeven begi- 
nadres in decimale of hexadecimale notatie weergegeven op het beeldscherm of op de 
printer. 

Beëindig de opdracht met F1 
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Voorbeeld: 
>g$CDD _ 
$COZ0 21 63 F6 3E 
$COZA 36 G2 ED 43 
$CO14 DO DD 0 DO 
POKE IN GEHEUGEN 


Syntax p adres, getal [‚getal2 … } 
p adres, string 


Hiermee kunnen we rechtstreeks getallen of karakters op geheugenplaatsen „poken’' 


Voorbeeld: 


>p$cO10, "test 


ZOEKROUTINE 


Syntax: z beginadres,eindadres,getal1 [getal2 …] 
z beginadres,eindadres, "string 


Deze opdracht zoekt in het opgegeven geheugengebied naar het voorkomen van de mee- 
gegeven getallenreeks of string. Alle gevonden beginadressen van de getallenreeks of 
string worden afgedrukt. 


Voorbeeld: 


>z$c00D, $CO1F, "test 
$CO10 


PRINT KARAKTERS 

Syntax: k beginadres 

Vanaf het opgegeven beginadres wordt de inhoud van het geheugen in ASCII-tekens afge- 
drukt. Geheugenplaatsen waarin zich geen ASCIl-code bevindt worden door een punt 
weergegeven. Beëindig de opdracht met F1 


Voorbeeld: 


>k$cA0D 
$COZD !ev>.F.O,.6.mCxwtest............ 
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SAVE EN LOAD MACHINETAALPROGRAMMA 


Syntax. s filenaam,beginadres,eindadres 
| filenaam 


Een filenaam mag uit maximaal 6 tekens bestaan bij gebruik van een cassetterecorder. Bij 
gebruik van een diskdrive uit maximaal 8 tekens eventueel gevolgd door een punt en 3 ex- 
tra tekens. 


GEHEUGENGEBRUIK 


Aangezien dit programma direct in het geheugen werkt is het nuttig te weten hoe de geheu- 
genindeling is. Het BASIC-hoofdprogramma neemt het geheugengedeelte tot &HBEEE 
(49151) beslag. 

Vrij te gebruiken is het geheugengedeelte van &HCOOO (49152) tot &HDC61 (56417) bij ge- 
bruik van een diskdrive of tot &HF37F (62335) bij gebruik van een cassetterecorder 


Programma: 


' ASSEMBLER-DISASSEMBLER ; 
2 REM ; DOOR J.GROOT LIPMAN : 
H 1985 : 
19 CLEAR 300, &HBDFF: DEFSNG A-Z 
29 GOSUB 49220: GOSUB 100 
39 GOTO 10000 
99 'DEFFN's 
103 DEFFNH$(X)= 
119 DEFFNLO(X -256*INT(X/256) 
129 DEFFNHI(X)=INT((X+65536!)/256) MOD 256 
130 DEFFNIS(AS,X, I$)=LEFT$(A$, X)+I$+MID$(A$, X+1) 
149 DEFFNDP(X (X)+256XPEEK(X+1 ) 
170 DEFFNG$(X +HEX$(X): HEX=TRUE: GOTO 199 
189 DEFFNGS$(X)=MID$(STR$(X-65536 !*(X<0)), 2): HEX=FALSE 
199 RETURN 
199 ’Put byte 
222 POKE PU,BYTE: PU=PU#1 
219 IF PU=65536! THEN PU=0 
223 RETURN 
299 'Get byte 
300 BYTE=PEEK(GE): GE=GE+1 
310 IF GE=65536! THEN GE=0 
320 RETURN 
399 'Get adres 


“+STRINGS(—(X<16), "0" )+HEXS$(X) 


IF L=@ THEN L=LEN(CO$)+1 
410 NRS=LEFT$(CO$,L-1): COS=MID$(CO$, L+1) 
420 GOSUB 829 


519 IF CO$="" THEN RETURN 
520 IF LEFT$(COS, 1)=CHR$(34) THEN GOTO 579: ’String 
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530 L=INSTR(COS, ","): IF L=@ THEN L=LEN(CO$)+1 
542 NRS=LEFT$(COS$,L-1): CO$=MID$(CO$, L+1) 
550 GOSUB 800 
562 BYTE=NR: GOSUB 209: AB=, : GOTO 519 
570 CO$=MID$(CO$,2): IF COS: THEN RETURN 
587 BYTE=ASC(CO$): GOSUB 209: AB=AB+1 
595 GOTO 570 
599 'Poke dubbel 
623 POKE DP,FNLO(ADRES): DP=DP+1 
619 POKE DP,FNHI(ADRES): DP=DP+1 
623 RETURN 
699 'Get filename 
709 L=INSTR(CO®, ","): IF L=O THEN L=LEN(CO$)+1 
719 FI$=LEFT$(CO$,L-1): CO$=MID$(CO$, L+1) 
720 RETURN 
7199 'Val(nr$) 
800 SG$=LEFT: (NRS, 1) 
819 IF SG$=" OR SG$="-" THEN NRS=MIDS(NR$, 2) ELSE SG$ 
829 P=INSTR(NRS, "$"): IF P THEN NRS=LEFTS(NR$, P-1)+"&h"+MIDS$( 
NR$, P+1) 
B32 NR=VAL(NR$): IF SG$= 
B42 IF NR<>@ THEN GT= 
850 IF RIGHTS(NRS$, 1 
B6% GT=FALSE: RETURN 
899 'Dec<->hex 
909 IF CO$="->hex” THEN KEY 3, "->dec"+CHR$(13): GOTO 180 
919 KEY 3, ”"->hex"+CHR$(13): GOTO 179 
949 'Pr.aan<->uit 
95% IF CO$="pr.aan” THEN KEY 4,"pr.uit”+CHR$(13): PR=FALSE: R 
ETURN 
960 KEY 4, "pr.aan”+CHR$(13): PR=TRUE: RETURN 
999 'Assembler, subr, zoek in tab 
1000 FO=FALSE 
1919 FOR NR=@ TO 7 
1920 IF T$(T,NR)<>Z$ THEN NEXT NR: RETURN 
1039 IF T<8 THEN OC=T(T) OR 8*NR 
1949 FO=TRUE: RETURN 
1999 'Get reg 
1109 En zou 
1119 FOR REG, 
1129 IF T$(11,REG)=R$ THEN FO=TRUE: RETURN 
1130 NEXT REG: RETURN 
1199 'Dispatch 
1209 AB=1: IF SG$<>"" THEN B1I=BYTE: GOTO 1229 
1219 B1=BYTE-PU-2 
1229 IF B1<-128 OR B1>127 THEN ERROR 253 
1232 RETURN 
1299 ’1 Byte 
1300 AB=1: B1=BYTE: RETURN 
1399 '2 Byte 
1400 AB=2 
1419 B1=FNLO(BYTE): B2=FNHI(BYTE) 
1429 RETURN 
‘Index-reg 
1e0aro ": P=INSTR(AS, "ix"): IF P THEN I$="x": GOTO 1539 
1519 PEINSTR(AS ee dE ie Ë THEN I$="y": GOTO 1530 


“ THEN NR=-NR 
RUE: RETURN 
@" THEN GT=TRUE: RETURN 
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1529 I$="": RETURN 

1530 MID$(A$,P,2)="hl": O$=MID$(A$, P+2, 1) 

1540 IF O8<>"+" AND O$<>"-" THEN O$="": GOTO 1569 
1559 E=INSTR(P+3,A$, “)"): O$=MID$(A$, P+2,E-P-2) :A$=LEFT$(A$, P 
+1)+MID$(AS, E) 

1562 RETURN 

1599 Opsplitsen 

1694 PI=INSTR(AS, " “): P2=INSTR(A$, ", ") 

1619 IF P1=0 THEN P1=LEN(A$)+1 

1629 IF P2=0 THEN P2=LEN(A$)+2 

1639 IF P2<P1 THEN ERROR 251 

1640 MNS=LEFT$(A$, P1-1) 

1659 
1662 O18=MID$(A$,P1+1,P2-P1-1) 

1679 O2$-MID$(A$, P2+1) 

1682 RETURN 

1699 'Getal —> V 

1709 NR$=01$: GOSUB 1729: O1$=NR$: IF GT THEN RETURN 

1719 NR$=02$: GOSUB 1729: O2$=NR$: RETURN 

1720 IF LEFTS(NR$,1)="(" THEN NRS=MIDS(NR$, 2, LEN(NR$)-2): GOS 
UB 1739: NR$="("+NR$+")": RETURN 

1730 GOSUB 820 

1740 IF GT THEN BYTE=NR: NR$8="V" 

1753 RETURN 

1799 'Errors 

1800 IF ERR<290 THEN ON ERROR GOTO @ ELSE RESUME 1819 

1819 BEEP: PRINT: PRINT “error”: ER=TRUE 

1829 RETURN 

1999 ‘Assembler decoder 

2000 ON ERROR GOTO 1800: GOSUB 1509: GOSUB 1600: IF ER THEN R 
ETURN 

2010 AB=0: ED$="": CB$="" 

2999 'CB-codes,binair 

2109 CB$="cb":T=14: Z$=01$: GOSUB 1999: IF NOT FO OR O2$="" T 
HEN 2209 

2119 R$=02$: GOSUB 1199: IF NOT FO THEN ERROR 255 

bit” THEN OC=64 ELSE IF MN$="res" THEN OC=128 EL 
set” THEN OC=192 ELSE ERROR 255 

2139 OC=OC OR B*NR OR REG: RETURN 

2199 'CB-aritmetiek 

2200 T=5: Z$=MN$: GOSUB 1929: IF NOT FO THEN CB$="": 


2219 R$=01$: GOSUB 1199: IF NOT FO THEN ERROR 255 
2229 OC=OC OR REG: RETURN 
2299 'ED-codes,divers 
2309 ED$="ed": T=13: Z$=A$: GOSUB 1999: IF FO THEN OC=ED(NR): 
RETURN 
2319 GOSUB 1799: 'Nu getal->V 
2320 OP$=018: A$=MN$: IF Ol$<>"" THEN A$=A$+" "+018: IF O28<> 
“* THEN A$=A$+", "+028: OP$=OP$+", "+028 
2399 'ED-ld 
2409 IF MNSD” Id” THEN 2520 
: GOSUB 1929: IF FO THEN GOTO 1499 
: GOSUB 1999: IF FO THEN RETURN 
2499 'ED-aritmetiek 
2509 IF MN$="sbc" THEN OC=66 ELSE IF MN$="ade" THEN OC=74 ELS 
E 2600 


GOTO 230 
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2519 IF Ol$<>"hl" THEN 2609 

2520 T=19: Z$=02$: GOSUB 109: IF NOT FO THEN ERROR 255 

2539 OC=OC OR 164NR: RETURN 

2599 'Ldi enz 

2609 IF Ol$<>"” OR MN$="cpl" THEN GOTO 270 

2610 IF LEFT$(MN$, 3)="out" THEN MN$="ot"+MIDS(MN$, 4) 

2620 2: ZS=LEFTS$(MN$, 2): GOSUB 1990: IF NR>3 THEN 2709 
2639 R: Z$=MID$(MN$,3): GOSUB 1409: IF NR<4 OR NOT FO THEN 
ERROR 255 

2649 OC=165 OR (NR-4)*8 OR N: RETURN 

2699 'Ed i/o 

2709 IF O1$<>"(c)" OR MN$<>"out” THEN 2720 

2719 OC=65: R$=02$: GOTO 2749 

2720 IF O2$<>"(c)" OR MN$<>"in” THEN 2760 

2739 OC=64: R$-01$ 

2749 GOSUB 1199: IF NOT FO THEN ERROR 255 

2750 OC=OC OR REG*8: RETURN 

2769 ED$="": 'Geen ed 

2799 'Add hl, 

2800 IF MN$<>"add" OR O1$<>"hl" THEN 2900 

2819 T=19: 2$=02$: GOSUB 1909: IF NOT FO THEN ERROR 255 

2829 OC=3 OR 16*NR: RETURN 

2899 ’In T$(O-4) 

2900 T=d: Z$=A$: GOSUB 1999: IF FO THEN IF NR=@ THEN 1490 ELS 
E IF NR=2 OR NR=3 THEN 1399 ELSE RETURN 

2919 T=1l: Z$=A$: GOSUB 1999: IF NOT FO THEN 2920 

2913 IF NR=2 OR NR=3 THEN 1209 

2916 IF NR>3 THEN OC=291 OR 16*(NR-4) 

2918 RETURN 

2920 T=2: IF MN$="1ld" THEN Z$=OP$: GOSUB 1009: IF NR<4 THEN R 


ETURN ELSE IF NR<8 THEN 1400 


: Z$=MN$: GOSUB 1099: IF FO THEN RETURN 
d $: GOSUB 1409: IF NOT FO THEN 3000 
THEN R$=018 ELSE R$=02$ 


2969 GOSUB 1199: IF NOT FO THEN OC=198 OR 8*NR: GOTO 1390 
2979 OC=OC OR REG: RETURN 

2999 'O1$ is 8 bit reg 

3009 R$-O1 GOSUB 119: IF NOT FO THEN 3102 

3019 IF MN inc" THEN OC=4 OR B*REG: RETURN 

3029 IF MN$="dec" THEN OC=5 OR 8*REG: RETURN 

3030 IF MN$<>"ld" THEN IF Ol$="c" THEN 3190 ELSE ERROR 255 
3049 R=REG: R$=02$: GOSUB 1199: IF FO THEN OC=64 OR 8*R OR RE 
G: RETURN 

3950 IF O2$="V" THEN OC=6 OR 8*R: GOTO 1300 

3063 ERROR 255 

3099 Condities 

31009 T=9: Z$=018$: GOSUB 1900: IF NOT FO THEN 3200 

3112 ár” AND NR<4 THEN OC=32 OR BNR: GOTO 1209 
3120 jp” THEN OC=194 OR B*NR: GOTO 1490 

3130 call” THEN OC=196 OR 8*NR: GOTO 1400 

3149 ret” THEN OC=192 OR 8*NR: RETURN 

3159 ERROR 255 

3199 ’Rst 

3200 IF MN$<>"rst" THEN 3300 

3219 NR=INT(BYTE/8): OC=199 OR 8*NR: RETURN 

3299 ’Ld dubbel 

3300 IF MN$<>"ld" THEN 3490 
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3310 T=10: Z$=018: GOSUB 100: IF NOT FO THEN ERROR 255 
3329 OC=1 OR 16*NR: GOTO 1400 

3399 'inc 16reg 

rd MN$="dec" THEN OC=11 ELSE IF MN$="inc" THEN OC=3 ELSE 
3410 T=10: 28-018: GOSUB 1000: IF NO ERRO 
3429 OC=OC OR 16*NR: RETURN EEN TEN 8200 
3499 'Stack 

3509 IF MN$="pop" THEN OC=193 5) kl a = 
ELSE 3624 ELSE IF MN$="push" THEN OC=197 
3519 T=8: Z$=018: GOSUB 1940: IF NOT FO THEN ERROR 255 
3529 OC=OC OR 16*NR: RETURN 

3599 ’Halt 

3600 IF MN$="halt" THEN OC=118: RETURN 

3699 ’Call 

3700 IF MN$="call" THEN OC=&HCD: GOTO 1400 

3799 'Niet goed 

3800 ERROR 254 

4999 'Disassembler, subr, get byte 

5000 BYTE=A(NR): NR=NR+1 

5010 RETURN 

5099 'Rst 

5100 AD=((OC/8) AND 7)*8 

5110 RE$=FNG$(AD): RETURN 

5199 ’1-byte 

5209 GOSUB 5000 

5219 RE$=FNG$(BYTE): RETURN 

5299 ’2-byte 

5300 GOSUB 5009: AD=BYTE 

5319 GOSUB 5000: AD=AD+256*BYTE 

5329 RES=FNG$(AD): RETURN 

5399 'Jr-ofset 

5400 GOSUB 5000: D=BYTE 

5419 IF D>127 THEN D=D-256 

5420 RE$S=FNG$(GE+D+2): RETURN 

5999 ’Disassembler-decoder 

6905 'DIM A(4) 

6214 H=GE: FOR I=1 TO 4: GOSUB 300 

6229 A(I)=BYTE: NEXT I: NR=1: GE=H 

6530 GOSUB 5007: OC=BYTE 


6349 IF BYTE=&HDD THEN I : GOTO 6149 
6550 IF BYTE=&HFD THEN I$= : GOTO 6109 


6953 I$="": GOTO 6200 

6099 'index-reg 

6197 OF=-1: GOSUB 5009: OC=BYTE 2 

6119 IF OC=&H39 OR OC<&H34 OR OC>&HCC THEN 6200 
6129 GOSUB 5040: OF=BYTE 

6130 A(3)=A(4): 'Verwyder offset 

6209 TI=0 

6219 IF OC=&HCB THEN TI=25: GOSUB 5940: OC=BYTE: GOTO 6300 
6220 IF OC=&HED THEN TI=39: GOSUB 5009: OC=BYTE 
6399 FOR I=TI TO 39 

6310 IF ((OC-MA(I,Z)) AND MA(I,1)) <> @ THEN NEXT I 
6320 MA=MA(I, 1): MNS=MN$(I) 

6333 P=0 

6399 ’Vervang 
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6409 FOR S=LEN(MN$) TO 1 STEP —1 

6410 P$=MID$(MN$,S, 1) 

6424 IF P$<“G" OR P$>"”Z" THEN NEXT S: GOTO 6460 
6430 GOSUB 7000 

64409 MNS=LEFT$(MN$, S-1)+RES+MIDS(MNS$, S+1) 

6457 GOTO 6490 

6460 IF P<>12 THEN 6590 

6470 gee kheb „LEN(MN$)-2) 


6500 IF I$="" THEN 6600 

6519 P=INSTR(MN$, "hl"): IF P=@ THEN 6600 
6520 MID$S(MN$,P,2)="i"+I$ 

6530 IF OF<O THEN 6500 

6549 MNS=FNIS(MN$, P+1, "+"+FNGS(OF) ) 

6642 RETURN 


71905 IF P$="T" THEN 7200 

1010 P=ASC(P$)-ASC(“G") 

1020 IF MA/2=MA\2 THEN 7949 

7030 MA=MA\2: OC=OC\2: GOTO 7920 

7049 I=NOT MA AND OC AND 7 

7050 MA=MA OR 7: OC=OC OR 7 

1069 RES=T$(P, I) 

1070 IF RE$="add" OR RE$="adc" OR RE$="sbc" THEN RES-RE$+" a, 
“: MNS=MID$(MN$, 2) 

7080 RETURN 

7099 'Bytes 

7100 ON ASC(P$)-ASC(“W")+1 GOTO 5100, 5200, 5300, 5400 

7199 ="V 

7119 
7120 
7130 
7149 
7199 
71200 
7219 IF OC=ED(I) THEN RE$=T$(13, 1): RETURN 
7229 NEXT I: RE$="??" 

7243 RETURN 

9999 'Main 

19909 SCREEN @: WIDTH 38 

19810 PRINT TAB(15) ; MENU“ 

10220 PRINT: PRINT: PRINT: PRINT 

14230 PRINT TAB(7) …..assembleren” 
10249 PRINT TAB(7) disassembleren” 


“ THEN 5240 
" THEN 5400 


19059 PRINT TAB(7); ……copieren” 
19969 PRINT TAB(7) …… runnen” 
14970 PRINT TAB(7) „… poken” 
10989 PRINT TAB(7);"z.............. zoeken” 
19999 PRINT TAB(7) geheugendump" 
19199 PRINT TAB(7) karakterdump" 


19119 PRINT TAB(7) 
19129 PRINT TAB(7); 
19999 'Input command 

11009 F(1)=FALSE: KEY (1) OFF 
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11405 IF PR THEN IF LPOS(@)<>@ THEN LPRINT: LPRINT 

11919 PRINT: PRINT ">“;: LINE INPUT CO$ 

11915 IF CO$="" THEN GOTO 11919 

11929 KEY (1) ON 

11939 IF CO$="end” THEN END 

11949 IF CO$="menu” THEN GOTO 19990 

200 IF CO$="->hex" OR CO$="->dec” THEN GOSUB 909: GOTO 1195 
11955 IF CO$="pr.aan” OR CO$="pr.uit" THEN GOSUB 959: GOTO 11 
200 

11969 C$=LEFT$(CO$, 1 $=MID$(COS$, 2) 

11965 IF LEFT$(COS, 1 “ THEN CO$=MID$(CO$,2):GOTO 11965 
11979 IF C$=">" THEN GOTO 11939 

11489 ON INSTR("aderpzgksl.“,C$)+1 GOSUB 11999, 20000, 21009, 22 
OOG, 23000, 24000, 25000, 26009, 27900, 28009, 29000, 30000: GOTO 119 


11999 PRINT “Onbekend commando”: BEEP 
11109 RETURN 

19999 'Assembler-main 

20000 KEY (1) OFF: GOSUB 490: PU=ADRES 
20019 PRINT “.";FNG$(PU) ; TAB(7) 
20020 LINE INPUT A$ 

20923 IF INSTR(AS, “end”) THEN RE 
20927 LOCATE 24,CSRLIN-1: PRINT * 
20030 IF LEFT$(AS,1)<>"." THEN GOTO 20060 

20040 NR$=MID$(AS, 2,5): GOSUB- 800 

20050 PU=NR: A$=MID$(A$, 8) 

20960 P=INSTR(AS, “’ IF P THEN A$=LEFT$(A$, P-1) 

20070 IF RIGHT$(AS,1)=" " THEN A$=LEFT$(A$,LEN(A$)-1): GOTO 2 


20075 IF PR THEN LPRINT “.“;FNG$(PU);TAB(7);A$; TAB(24) ;"*"; 
Dern GOSUB 2009: IF ER THEN GOTO 20019 ELSE ON ERR 
20090 IF I$: THEN BYTE=&HDD: GOSUB 20200 

20190 IF IS: THEN BYTE=&HFD: GOSUB 20200 

20119 IF ED$="ed" THEN BYTE=&HED: GOSUB 20200 

20120 IF CB$="cb" THEN BYTE=&HCB: GOSUB 20200 


20130 B=LEN(ED$+CB$)/2: NR$=0$: GOSUB 800 

20149 IF B AND O$<>"” THEN BYTE=NR: GOSUB 20200 

20150 BYTE=OC: GOSUB 20209 

20160 IF B=@ THEN IF O$<>""” THEN BYTE=NR: GOSUB 29200 
20170 IF AB THEN BYTE=B1: GOSUB 29200 

20189 IF AB=2 THEN BYTE=B2: GOSUB 20200 

20190 PRINT: IF PR THEN LPRINT 

20195 GOTO 20919 

20199 'Put byte 

20200 IF BYTE<O THEN BYTE=BYTE+256 

20210 PRINT FNHS(BYTE);: IF PR THEN LPRINT FNH$(BYTE) ; 
20223 GOSUB 202: RETURN 

20999 'Disassembler-main 

21930 GOSUB 490: GE=ADRES: F(1)=FALSE 

21029 GOSUB 6000 

21430 PRINT “.”;FNGS(GE);TAB(7);MN$; TAB(24) ;"*"; 

21949 IF PR THEN LPRINT “.“;FNG$(GE);TAB(7);MN$; TAB(24) ; "’"; 
21950 FOR I=2 TO NR: 'Nr=aantal bytes+1 

21965 GOSUB 390: PRINT FNHS(BYTE); 
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21079 IF PR THEN LPRINT FNHS(BYTE) ; 
21980 NEXT I: PRINT: IF PR THEN LPRINT 
21090 IF F(1) THEN RETURN 

21190 GOTO 21929 

21999 'Copy-main 

22000 DP=&HBE30: GOSUB 409: GOSUB 600 
22019 GOSUB 407: GOSUB 620 

22020 GOSUB 499: GOSUB 600 

22030 A=USR1(G): RETURN 

22999 'Run-main 

23000 GOSUB 499: DEFUSR=ADRES 

23019 BEEP: PRINT "Start usr op adres “;FNGS(ADRES) ;"? (j/n) 


23020 A$=INPUTS$(1): IF A$<>"j" THEN RETURN 
23930 PRINT “Resultaat:”;USR(@) 

23040 RETURN 

23999 'Poke-main 

24000 GOSUB 499: PU-ADRES 

24910 GOSUB 500 

24920 RETURN 

24999 'Zoek-main 

25000 DP=&HBE89: GOSUB 409: GOSUB 600 
257919 BEG=ADRES: GOSUB 400 

25920 ADRES=ADRES-BEG+1: GOSUB 609 

25030 PU=&HBFOZ: GOSUB 500: POKE &HBE86, AB 
25049 IF F(1) OR NOT USR2(@) THEN RETURN 
25050 A$=FNG$(FNDP(&HBE84) ) 

25060 IF POS()>32 THEN PRINT 

25070 IF PR THEN IF ee THEN LPRINT 
25080 PRINT USING *\ ND 

25090 IF PR THEN LPRINT dsine” eN \"5A$; 
25199 GOTO 25049 

25999 'Geheugendump 

26000 GOSUB 409: GE-ADRES 

26010 IF PR THEN LPRINT FNGS$(GE);TAB(6) ; 
26020 PRINT FNG$(GE) ;TAB(6) ; 

26030 IF HEX THEN GOTO 26120 

26040 FOR X=1 TO 8: GOSUB 300 

26050 IF PR THEN LPRINT USING “####”;BYTE; 
26060 PRINT USING “####";BYTE;: NEXT X 
26070 IF F(1) THEN RETURN 

26280 IF PR THEN LPRINT 

26299 GOTO 26019 

26199 FOR X=1 TO 19: GOSUB 300 

26119 IF PR THEN LPRINT FNHS(BYTE) ; 

26120 PRINT FNHS(BYTE);: NEXT X 

26130 IF F(1) THEN RETURN 

26149 PRINT: IF PR THEN LPRINT 

26159 GOTO 26018 

26999 'Karakterdump 

27020 GOSUB 490: GE=ADRES 

27010 IF PR THEN LPRINT FNG$(GE);TAB(6) ; 
27020 PRINT FNGS(GE);TAB(6) ; 

27030 FOR X=1 TO 32: GOSUB 300 

27940 Y=BYTE MOD 128: IF Y<32 OR Y=127 THEN Y=ASC(".") 
27050 PRINT CHR$(Y) ; 

27060 IF PR THEN LPRINT CHR$(Y); 
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27070 
27080 
27990 
27999 
28000 
28010 
28020 
28030 
28035 


NEXT X: IF F(1) THEN RETURN 

IF PR THEN LPRINT 

GOTO 27919 

‘Saven 

GOSUB 700 

GOSUB 409: BEG=ADRES 

GOSUB 409:IF ADRES=O THEN RETURN 

BSAVE "A:"+FI$,BEG, ADRES:REM Bij gebruik van diskdrive 
REM BSAVE “cas:"+FI$,BEG,ADRES:REM Bij gebruik van cass 


etterecorder 


RETURN 
'Laden 
GOSUB 709 
BLOAD FI$ 
RETURN 
‘Assembleren disassembly 
KEY (1) OFF: A$="."+CO$: GOTO 29723 
F(1)=TRUE: RETURN 
Inlezen tabellen 
DIM T$(14,8),T(14) 
FOR T=@ TO 14: READ T(T) 
FOR NR=0 TO 7: READ T$(T,NR) 
NEXT NR 
NEXT T 
DIM ED(7) 
FOR T=@ TO 7: READ ED(T): NEXT T 
DIM MN$(39),MA(39, 1) 
FOR T=g TO 39 
READ MN$(T),MA(T,@),MA(T, 1) 
NEXT T 
READ PL: DEFUSRI=PL: GOSUB 49300 
READ PL: DEFUSR2 GOSUB 49300 
GOTO 41900 
XO=J: READ AB 
FOR X=PL TO PL+AB: READ A$ 
BYTE=VAL( "&H"+A$) 
POKE PL,BYTE: PL=PL+1 
XO=XO XOR BYTE: NEXT X 
IF XO<>@ THEN PRINT “Data-error in regel 53000 of 53100 


“: BEEP: END 


40360 


RETURN 

TRUE=-1: FALSE=NOT TRUE 

KEY 1, “end”+CHR$(13) 

KEY 2, “menu”+CHR$(13) 

KEY 3, "->hex”+CHR$(13): HEX=TRUE 
KEY 4, "pr.uit”+CHR$(13): PR=FALSE 
ON KEY GOSUB 38209: KEY ON 

DIM F(19) 

RETURN 

'Data T,T$ 

DATA 195, jp V‚*, “out (V),a”, “in a,(V)", "ex (sp),‚hl”, “ex 


de,hl",di,ei 


50010 


DATA U,‚nop, "ex af‚af’“,djnz V‚jr V‚ret,exx, jp (hl), “1d 


sp,‚hl" 


50020 


‚(v)”, 


DATA 2,"(bc),a”, "a, (be)", “(de),a", "a, (de), "(V),hl”, “hl 
"(V),a”, "a, (V)” 
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59030 DATA 7,rlca,rrca,rla,rra,daa,cpl,scf,eef 

50949 DATA 128,add,adc, sub, sbe, and, xor, or, ep 

52059 DATA @,rle,rre,rl,rr,sla,sra,*‚srl 

50059 DATA 67,"(V),be”, “be, (V)","(V),de", "de, (V)"‚*,*, "(V),sp 
“sp, (V)” 

509970 DATA 71,"i,a","r,a","a,i","a,r",x,*,‚*,‚ 

50289 DATA @,be,de,hl,af,bc,de,hl,af 

50090 DATA U,‚nz,z,‚nc,e,po,pe,p,m 

5O10D DATA O,be,de,hl,sp,*,*,*,x 

50110 DATA @,b,c,‚d,e,h,l,(hl),a 

59120 DATA @,1ld,ep, in,ot,i,d,ir,dr 

50132 DATA O,im O,im 1,im 2,neg,reti,retn,rld,rrd 

50149 DATA 9,9,1,2,3,4,5,6,7 

50999 'Data ed 

51990 DATA 79,86,94,68,77,69, 111, 193 

51999 'Data mn,mn$ 

52033 DATA “halt”, 118,255,H, 9, 231 

52010 DATA “jr P,Z",32,231, "ld Q,Y",1,207 

52929 DATA “add hl,Q",9,207,1ld I,2,199 

52939 DATA inc Q,3,297,dec Q,11,297 

52940 DATA inc R‚4,199,dec R,‚5, 199 

52050 DATA “ld R‚X",6,199,J,7, 199 

52960 DATA “ld R‚R",64,192,K R,‚128,192 

52079 DATA ret P,‚192,199,pop O, 193, 143 

52089 DATA H‚201,143, "jp P,Y",194, 199 

52090 DATA G,195,199, “call P,Y"”,196, 199 

52109 DATA push O,197,143,call Y,295, 207 

52110 DATA K X,198,199,rst W,‚ 199, 199 

52120 DATA "??",9,0 

52129 ’Cb-codes 

52139 DATA L R‚O,192, “bit U,R",64, 192 

52140 DATA “res U,R",128,192, "set U,R”,192, 192 

52150 DATA "??",0,0 

52159 'Ed-codes 

52169 DATA “in R,‚,(c)",64,199, “out (c),R",65, 199 

52170 DATA “sbe hl,Q”,66,207, "ade hl,Q",74, 207 

52189 DATA “ld (Y),Q",67,297, "1d Q,(Y)",75, 297 

52190 DATA ld N,71,231 

52200 DATA SS, 169, 192 

52210 DATA T,‚4,0 

52229 DATA “?2",0,0 

52999 'Code copy-routine 

53000 DATA &HBEOO, 35, 2A, 30, BE, ED, 5B, 32, BE, ED, 4B, 34, BE, 78, B1,C 
8,ED,52,F5,B7,ED,5A,F1,38,03,ED,BO,C9,09, 2B, EB, 09, 2B, EB, ED, B8 
‚„C9, 3B 

53099 'Code zoek-routine 

53100 DATA &HBE40, 53, 2A, 80, BE, ED, 4B, 62, BE, 78, B1,CB8,11,00,BF, 1 
A,ED,B1, CO, 22,80, BE, ED, 43,82, BE, 3A, 86, BE, 47,05, 28,08, 13, 1A, BE 
„23,20,DB,18,F5,21,FF,FF,22,F8,F7,2A,80, BE, 2B, 22,84, BE,C9,29 
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Checksums: 
Gebruik het programma van paragraaf 4.6. 


:9F59 
:BF41 
:B838 
:B2A2 
:91FC 
:2B9C 
:AE71 
:7835 
:1995 
: 1BA5 
:6E76 
:BDEC 
:12F3 
:299C 
:7092 
:9141 
:C723 
:42AE 
:9182 
:CDO1 
:323C 
:6523 
:D176 
:OCOD 
:43C2 
:933C 
: CCC 
:D276 
:BEC1 
:D67F 
:56BF 
:B456 
:CFOG 
:EDE4 
:DAB7 
:D381 
:5C9B 
:F470 
:1A26 
:72EC 
:D6F6 
:3BB5 
:875C 
:099E 
:B3CF 
:402A 
17054 
:A485 
:A7IF 
:6A60 
:5229 
:161E 


2: 
99: 
149: 


219: 
329: 
430: 


549: 
590: 
699: 


819: 
869: 
950: 


1930: 
1129: 
1229: 


1419: 
1529: 
1599: 


1659: 
1709: 
1759: 


2000: 
2129: 
2220: 


2400: 
2519: 
2619: 


2710: 
2760: 
2899: 


2920 
2979: 
3030: 


3119: 
3199: 
3319: 


3499: 
3609: 
4999: 


FD2F 
EGA9 
1854 


2C15 
6B76 
67CB 


14D9 
DFCA 
295F 


1CC8 
7458 
71EB 


DC32 
6349 
E9B8 


O1BE 
A728 
524E 


7543 
97F6 
D2F6 


2218 
6F8B 
C4EG 


71030 
Fg57 
3343 


4aaF 
96CF 
58D2 


:F216 


C52C 
6255 


BCAF 
344A 
9C85 


D525 
C17E 
E54D 


:O3DF 
:BFAF 
:4103 


:6A76 
:6C78 
:7538 


:B871 
:GB6C 
:1A1G 


:9733 
: 1869 
:AF75 


:2640 
:CF41 
:CCF6 


:CE76 
:B49C 
:EACB 


-7CDC 
:95CE 
:AT7A4 


:96FF 
:E815 
:7264 


:4B9C 
:2086 
:4313 


:5397 
:A965 
:4767 


:FC8F 
:9E53 
:3631 


19:75CB 20: AB48 
559 129: 0CE7 


189:699A 199:6CF6 
blok-checksum : 
300: 12CC 


500: 19FA 519:6826 
blok-checksum : 


839: B3E7 
907: 5C3B 
999:6294 1000: 1EE6 
blok-checksum : 
1999:990A 1197:22E6 
1199:6CAC 1297:28C9 
1299:CBF1 1309:A391 
blok-checksum : 
1499:0BBE 1509: 
1549:03E1 1559: 
1619:9997 1629:9E1C 
blok-chec : 
1679:7544 168 
1729:3AB2 173 
1890:FBC8 1819:E9DA 
blok-checksum : 
2099:B1B8 2105:3CED 
2199:34B6 2290:3B7F 
2300:A2DD 2319:8A49 
blok-checksum : 
2429:13E4 2499:64B9 
2539:A7OF 2599:A733 
2639:0D6C 2649:D321 
brok-checksum 
2730:8CDE 2749:E46D 
2809:9D97 2819:3486 
2919:5BOC 2913:E67C 
blok-checksum : 
2949:7DBE 2950:059B 
3000:83B3 3010:5A58 
3059:842F 3069: 3E2A 
blok-checksum : 
3130:F6A2 3149:F7D9 
3219:83C5 3299:95A4 
3399:A9IF 3400:910A 
blok-checksum : 
3510:6A02 3520:A73F 
3700:35E2 3799:CJ48 
5019:D1F6 5999:350A 
blok-checksum : 


849: 16E2 


E870 


3BB7 


2B1A 


6120 


52BD 


1FEO 


7313 


0307 


O2EC 


B319 


35D2 


AFDD 


C7DE 


261 


262 


5209:94FE 5219:CO92 5299:A692 
5329:G6ED 5399:B950 5497:9EG3 
5999:635F 6090:35AC 6919:5BA3 
blok-checksum : 
6059:E772 6060:9889 6799:BBBE 
6129:4956 6130:7DAB 6290: 34EE 
6300:AF65 6310:B045 6329:8514 
blok-checksum 
6419:8066 6420:E6A3 6430:C1IGE 
6460:BA45 6470:D5FA 6480:CA28 
6500:5844 6510:94D7 6520:DOFG 
blok-checksum : 
6999:823A 7090:F127 7095:CIE2 
7030:954E 7049:5466 7050:27B2 
7080:D976 7999:D8I5 71090:DEB4 
blok-checksum : 
7139:CBC5 7149:5DB7 7199:D3D8 
7229:3214 7249:D976 9999:727C 
19929:A389 19030:E880 19049: 190A 
blok-checksum : 
19959:6595 19999:5FDO 19100: CEG 
19999:1368 11909:F142 11905:9969 
11915:C9ED 11929:337E 11939:C485 11040: BOID 
blok-checksum : 
11979:4A8E 11989:F571 
:0508 20019: 5A83 
:8197 20040: AAES 
blok-checksum : 
:089D 20099: AB5I 
:1481 29149: A6OC 
:44E4 29199:6677 
blok-checksum : 
:5119 20999: 7835 
:CF9E 21959: 5BDA 
:ABC4 21109: 8B68 
blok-checksum : 
:AGBF 22999:0209 
:BE71 23949:9777 
:9877 24999: 4B36 
blok-checksum : 
:688F 25950:2814 
B61 25109: CB8C 
:BECE 26030: 1D3E 
blok-checksum : 
26960: :82C2 26099: F78E 
26119: E4 26149: 68D7 
26999:DE51 27000:4BIA 27010:F36A 27020: BFCE 
blok-checksum : 
27050:2801 27960:D6B4 27970:4646 27080:82C4 
27999:AIE9 28000: 427 28029: 1BE7 
28935:708D 28940:A177 28999:AB31 29900:8272 
blok-checksum : 
29999:D896 30000: GCAA 38000: 2BFG 39999: FIDF 
40010:DB91 40020: B8F 49040: CC64 
49060: 2528 40070: :A834 40090: A49D 
blok-checksum : 


25020: 
25970: 
26009: 


853C 


F943 


E501 


5463 


C865 


FC43 


24E2 


D51C 


76A2 


BOCF 


5002 


788D 


DBAC 


B845 


:8785 
:9941 
:9615 
:6E62 
:68D3 
:BBDE 
:E510 
:6DCA 
:2E44 
:AE49 
:619C 
:6382 
:4532 
: 1ADS 
:3052 
:4FE1 
53099: 


2CD9 


40210: 
49330: 
41919: 


41999: 
50030: 
50080: 


50140: 
52019: 
52069: 


52129: 
52159: 
52209: 


53109: 


E785 
9707 
F4A5 


A937 
5ODO 
44B2 


3F8F 
5763 
2370 


BACF 
02A2 
5D67 


DFB4 


49220: 
49349: 
41029: 


49999: 
50040: 
50090: 


50999: 
52020: 
52070: 


52129: 
52169: 
52210: 


CB84 :541F 49319: C5EA 

E2BF 3E3 49369:9D77 

CBDB :26F4 41049: 028B 
blok-checksum : 

A7F9 :9E2E 59019:847D 

AA30 B3D 5ODET: 7AAD 

EBF9 :A20D 50119:4F84 
blok-checksum : 

4E25 

6EJ2 

E692 :B4C5 52099: 79AA 
blok-checksum : 


F521 52139:GA2F 52140:F76F 
Dg39 d 
FD94 


blok-checksum : 


8F39 


2120 


8114 


8713 
6775 


263 


PROFESSIONELE 
SOFTWARE REEKS 


Software voor zakelijke en technische toepassingen 


De bezitter van een MSX computer vindt in dit boek een interessante 
verzameling programma's, die zich richten op een professioneel gebruik. 


Een uitgebreid scala van algemeen wiskundige toepassingen, statistische 
en financiële berekeningen, staat u ten dienste. Daarnaast worden 
programma's gegeven voor: 


e tekstverwerking en databestanden; 

e het componeren van muziekstukjes; 

e het tekenen op het grafisch scherm; 

= los vaer eli ee 

e het ontwil van 

e het analyseren van geluid; 

e het simuleren van digitale schakelingen en 

@ een uitgebreide versie van THTSIM, het bekende simulatieprogramma 
dat op de TH Twente werd ontwikkeld. 


Wie zich thuisvoelt in de wereld van de machinecode zal veel gemak 
ondervinden van het programma voor assembleren en disassembleren. 
Tenslotte zijn er enkele spelletjes opgenomen, want zelfs in de 
professionele vaa is er wel een moment voor ontspanning te vinden. 
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